Planet Source Code Jumbo …e CD Visual Basic 1 to 7/6_2008-2009.ISO/data/zips/Advanced_T211908712008.psc/Advanced Task Manager/Button.ctl

Text File | 2007-10-29 | 159KB | 2,856 lines

VERSION 5.00
Begin VB.UserControl Button
   ClientHeight    =   3600
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4800
   ScaleHeight     =   3600
   ScaleWidth      =   4800
End
Attribute VB_Name = "Button"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
'''''''''''''''''''''''''''''''''''''''''''''''''''''
' ************************************************* '
' *                                               * '
' *  Control Name:   ShapeButton                  * '
' *                                               * '
' *  Created:        10/September/2007            * '
' *                                               * '
' *  Created by:       Ahmed Alotiabe             * '
' *                                               * '
' *  You Have A Royalty Free Right To Use         * '
' *  Modify And Reproduce And Distribute.         * '
' *                                               * '
' *  But I Assume No Warranty, Obligations        * '
' *  Or Liability For The Use Of This Code.       * '
' *                                               * '
' *   For Any Damage This Control                 * '
' *           Can Cause To Your Products.         * '
' ************************************************* '
'''''''''''''''''''''''''''''''''''''''''''''''''''''

'>> Needed For The API Call >> GradientFill >> Backgraound
Private Type GRADIENT_RECT
    UpperLeft            As Long
    LowerRight           As Long
End Type

Private Type TRIVERTEX
    X                    As Long
    Y                    As Long
    Red                  As Integer
    Green                As Integer
    Blue                 As Integer
    Alpha                As Integer
End Type
'............................................................
'>>Needed For The API Call >> CreatePolygonRgn >> Polygon
'>>Postion For Picture And Caption ...etc.
Private Type POINTAPI
    X                    As Long
    Y                    As Long
End Type
'............................................................
'>> Constant Types Used With CreatePolygonRgn
Private Const WINDING    As Long = 2

'............................................................
'>> Constant Types Used With GradientFill
Private Const GRADIENT_FILL_RECT_H As Long = &H0
Private Const GRADIENT_FILL_RECT_V As Long = &H1

'............................................................
'>> Constant Types For LinsStyle
Private Const BDR_VISUAL As Long = vb3DDKShadow
Private Const BDR_VISUAL1 As Long = vbButtonShadow
Private Const BDR_VISUAL2 As Long = vb3DHighlight

'............................................................
'>> Constant Types For LinsStyle
Private Const BDR_FLAT1  As Long = vb3DDKShadow
Private Const BDR_FLAT2  As Long = vb3DHighlight

'............................................................
'>> Constant Types For LinsStyle
Private Const BDR_JAVA1  As Long = vbButtonShadow
Private Const BDR_JAVA2  As Long = vb3DHighlight

'............................................................
'>> Constant Values For White Border >> IF Mouse Down Button
Private Const BDR_PRESSED As Long = vb3DHighlight

'............................................................
'>> Constant Values For Gold Border >> IF Mouse Over Button
Private Const BDR_GOLDXP_DARK As Long = &H109ADC
Private Const BDR_GOLDXP_NORMAL1 As Long = &H31B2F0
Private Const BDR_GOLDXP_NORMAL2 As Long = &H90D6F7
Private Const BDR_GOLDXP_LIGHT1 As Long = &HCEF3FF
Private Const BDR_GOLDXP_LIGHT2 As Long = &H8CDBFF

'............................................................
'>> Constant Types For LinsStyle
Private Const BDR_VISTA1 As Long = vbWhite
Private Const BDR_VISTA2 As Long = &HCFB073

'............................................................
'>> Constant Types For FocusRect
'>> If Display Properties Colors IS Hight Color(16Bit)Use
'Private Const BDR_FOCUSRECT As Long = &HC0C0C0    '>> Color Gray

'>> If Display Properties Colors IS TrueColor(32Bit)Use
Private Const BDR_FOCUSRECT As Long = &HD1D1D1             '>> Color LightGray
'>> Constant Types For FocusRect Java
Private Const BDR_FOCUSRECT_JAVA As Long = &HCC9999        '>> ColorMauve
'>> Constant Values For FocusRect Vista
Private Const BDR_FOCUSRECT_VISTA As Long = 16698372
'>> Constant Values For FocusRect Xp
Private Const BDR_BLUEXP_DARK As Long = &HD98D59
Private Const BDR_BLUEXP_NORMAL1 As Long = &HE2A981
Private Const BDR_BLUEXP_NORMAL2 As Long = &HF0D1B5
Private Const BDR_BLUEXP_LIGHT1 As Long = &HF7D7BD
Private Const BDR_BLUEXP_LIGHT2 As Long = &HFFE7CE

'............................................................
'>> Constant Types For HandPointer
Private Const CURSOR_HAND = 32649&

'............................................................
'>> API Declare Function's
Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function GetCapture& Lib "user32" ()
Private Declare Function SetCapture& Lib "user32" (ByVal hWnd&)
Private Declare Function ReleaseCapture& Lib "user32" ()
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Private Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" (ByVal hdc As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As POINTAPI) As Long
Private Declare Function TextOutW Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function TextOutA Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, lpPoint As POINTAPI) As Long
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function Arc Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long
Private Declare Function GradientFill Lib "msimg32" (ByVal hdc As Long, ByRef pVertex As TRIVERTEX, ByVal dwNumVertex As Long, pMesh As Any, ByVal dwNumMesh As Long, ByVal dwMode As Long) As Integer
Private Declare Function TranslateColor Lib "olepro32.dll" Alias "OleTranslateColor" (ByVal clr As OLE_COLOR, ByVal palet As Long, Col As Long) As Long
Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Private Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function RoundRect Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

'............................................................
'>> Button Declarations
'............................................................
Public Enum EnumButtonShape
    Rectangle
    RoundedRectangle
    Round
    Diamond
    Top_Triangle
    Left_Triangle
    Right_Triangle
    Down_Triangle
    top_Arrow
    Left_Arrow
    Right_Arrow
    Down_Arrow
End Enum
Public Enum EnumButtonStyle
    Custom
    Visual
    Flat
    OverFlat
    Java
    XPOffice
    WinXp
    Vista
    Glass
End Enum
Public Enum EnumButtonStyleColors
    Transparent
    SingleColor
    Gradient_H
    Gradient_V
    TubeCenter_H
    TubeTopBottom_H
    TubeCenter_V
    TubeTopBottom_V
End Enum
Public Enum EnumButtonTheme
    NoTheme
    XpBlue
    XpOlive
    XPSilver
    Visual2005
    Norton2005
    RedColor
    GreenColor
    BlueColor
End Enum
Public Enum EnumButtonType
    Button
    CheckBox
End Enum
Public Enum EnumCaptionAlignment
    TopCaption
    LeftCaption
    CenterCaption
    RightCaption
    BottomCaption
End Enum
Public Enum EnumCaptionEffect
    Default
    Raised
    Sunken
    Outline
End Enum
Public Enum EnumCaptionStyle
    Normal
    HorizontalFill
    VerticalFill
End Enum
Public Enum EnumDropDown
    None
    LeftDropDown
    RightDropDown
End Enum
Public Enum EnumPictureAlignment
    TopPicture
    LeftPicture
    CenterPicture
    RightPicture
    BottomPicture
End Enum
'............................................................
'>> Property Member Variables
'............................................................
Private mButtonShape     As EnumButtonShape
Private mButtonStyle     As EnumButtonStyle
Private mButtonStyleColors As EnumButtonStyleColors
Private mButtonTheme     As EnumButtonTheme
Private mButtonType      As EnumButtonType
Private mCaptionAlignment As EnumCaptionAlignment
Private mCaptionEffect   As EnumCaptionEffect
Private mCaptionStyle    As EnumCaptionStyle
Private mDropDown        As EnumDropDown
Private mPictureAlignment As EnumPictureAlignment

'............................................................
'>> Property Color Variables
Dim mBackColor           As OLE_COLOR
Dim mBackColorPressed    As OLE_COLOR
Dim mBackColorHover      As OLE_COLOR
'............................................................
Dim mBorderColor         As OLE_COLOR
Dim mBorderColorPressed  As OLE_COLOR
Dim mBorderColorHover    As OLE_COLOR
'............................................................
Dim mForeColor           As OLE_COLOR
Dim mForeColorPressed    As OLE_COLOR
Dim mForeColorHover      As OLE_COLOR
'............................................................
Dim mEffectColor         As OLE_COLOR

Dim mCaption             As String
Dim mFocusRect           As Boolean
Dim mFocused             As Boolean
Dim mValue               As Boolean
Dim mHandPointer         As Boolean
Dim mPicture             As Picture
Dim mPictureGray         As Boolean
'............................................................
Dim CaptionPos(1)        As POINTAPI                          '>> Postion Text
Dim PicturePos(1)        As POINTAPI                          '>> Postion Picture
Dim Fo                   As POINTAPI               '>> Region Of FocusRect
'............................................................
'>> Mouse Button >> Hovered Or Pressed
Private MouseMove, MouseDown As Boolean
Attribute MouseDown.VB_VarUserMemId = 1073938462

Dim P(0 To 7)            As POINTAPI
Attribute P.VB_VarUserMemId = 1073938464
Dim PL(0 To 7)           As POINTAPI
Attribute PL.VB_VarUserMemId = 1073938465
Dim Lines                As POINTAPI
Attribute Lines.VB_VarUserMemId = 1073938466
Dim hRgn                 As Long
Attribute hRgn.VB_VarUserMemId = 1073938467
'............................................................
'>> Button Event Declaration's
'............................................................
Public Event Click()
Public Event DblClick()
Public Event KeyDown(KeyCode As Integer, Shift As Integer)
Public Event KeyPress(KeyAscii As Integer)
Public Event KeyUp(KeyCode As Integer, Shift As Integer)
Public Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Public Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Public Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Public Event OLECompleteDrag(Effect As Long)
Public Event OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Public Event OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
Public Event OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)
Public Event OLESetData(Data As DataObject, DataFormat As Integer)
Public Event OLEStartDrag(Data As DataObject, AllowedEffects As Long)
'............................................................
'>> Start Properties Button
'............................................................
Public Property Get hdc() As Long
    hdc = UserControl.hdc
End Property
Public Property Get hWnd() As Long
    hWnd = UserControl.hWnd
End Property
Public Sub Refresh()
    UserControl.Refresh
End Sub

Public Property Get ButtonShape() As EnumButtonShape
    ButtonShape = mButtonShape
End Property
Public Property Let ButtonShape(ByVal EBS As EnumButtonShape)
    mButtonShape = EBS
    PropertyChanged "ButtonShape"
    UserControl_Paint
End Property
Public Property Get ButtonStyle() As EnumButtonStyle
    ButtonStyle = mButtonStyle
End Property
Public Property Let ButtonStyle(ByVal EBS As EnumButtonStyle)
    mButtonStyle = EBS
    PropertyChanged "ButtonStyle"
    '.............................................................
    '>> ButtonStyle,Visual, Flat,OverFlat,Java,XpOffice,WinXp
    '>> Vista,Glass
    '>> Default BackColors To ButtonStyle At Hover,Press,Off
    '>> 'Default ForeColors To ButtonStyle At Hover,Press,Off
    '.............................................................
    Select Case mButtonStyle
        Case Is = Visual
            mBackColor = vbButtonFace
            mBackColorHover = vbButtonFace
            mBackColorPressed = vbButtonFace
            'mForeColor = vbBlack
            'mForeColorHover = vbBlack
            'mForeColorPressed = vbBlack
        Case Is = Flat
            mBackColor = vbButtonFace
            mBackColorHover = vbButtonFace
            mBackColorPressed = vbButtonFace
            'mForeColor = vbBlack
            ' mForeColorHover = vbBlack
            'mForeColorPressed = vbBlack
        Case Is = OverFlat
            mBackColor = vbButtonFace
            mBackColorHover = vbButtonFace
            mBackColorPressed = vbButtonFace
            'mForeColor = vbBlack
            'mForeColorHover = vbBlack
            'mForeColorPressed = vbBlack
        Case Is = Java
            If Not mButtonStyleColors = Transparent Then mButtonStyleColors = SingleColor
            mBackColor = vbButtonFace
            mBackColorHover = vbButtonFace
            mBackColorPressed = &H999999
            'mForeColor = vbBlack
            'mForeColorHover = vbBlack
            'mForeColorPressed = vbBlack
        Case Is = XPOffice
            mBackColor = vbButtonFace
            mBackColorHover = &HB6A59F
            mBackColorPressed = &HAF8C80
            'mForeColor = vbBlack
            'mForeColorHover = vbBlack
            'mForeColorPressed = vbBlack
        Case Is = WinXp
            If Not mButtonStyleColors = Transparent Then mButtonStyleColors = Gradient_V
            mBackColor = &HD2DEDD
            mBackColorHover = vbWhite
            mBackColorPressed = vbWhite
            'mForeColor = vbBlack
            'mForeColorHover = vbBlack
            'mForeColorPressed = vbBlack
        Case Is = Vista
            mBackColor = &HD8D8D8
            mBackColorHover = &HF7DBA5
            mBackColorPressed = &HEFCE92
            'mForeColor = &H8000000D    'vbhightlight
            'mForeColorHover = &H8000000D
            'mForeColorPressed = &H8000000D
        Case Is = Glass
            mBackColor = vbDesktop
            mBackColorHover = vbDesktop
            mBackColorPressed = vbDesktop
            'mForeColor = vbWhite
            'mForeColorHover = vbWhite
            'mForeColorPressed = vbWhite
    End Select
    UserControl_Paint
End Property
Public Property Get ButtonStyleColors() As EnumButtonStyleColors
    ButtonStyleColors = mButtonStyleColors
End Property
Public Property Let ButtonStyleColors(ByVal EBSC As EnumButtonStyleColors)
    mButtonStyleColors = EBSC
    PropertyChanged "ButtonStyleColors"
    UserControl_Paint
End Property
Public Property Get ButtonTheme() As EnumButtonTheme
    ButtonTheme = mButtonTheme
End Property
Public Property Let ButtonTheme(ByVal EBT As EnumButtonTheme)
    mButtonTheme = EBT
    PropertyChanged "ButtonTheme"
    '.............................................................
    '>> ButtonTheme,XpBlue,XpOlive,XPSilver,Visual2005,Norton2005
    '>> RedColor,GreenColor,BlueColor.
    '.............................................................
    Select Case mButtonTheme
        Case Is = XpBlue
            mBackColor = &HF1B39A
            mBackColorHover = &HFDF7F4
            mBackColorPressed = &HFAE6DD
            mBorderColor = &HF1B39A
            mBorderColorHover = &HF1B39A
            mBorderColorPressed = &HF1B39A
        Case Is = XpOlive
            mBackColor = &H3DB4A2
            mBackColorHover = &HDFF4F2
            mBackColorPressed = &HB8E7E0
            mBorderColor = &H3DB4A2
            mBorderColorHover = &H3DB4A2
            mBorderColorPressed = &H3DB4A2
        Case Is = XPSilver
            mBackColor = &HB5A09D
            mBackColorHover = &HF7F5F4
            mBackColorPressed = &HECE7E6
            mBorderColor = &HB5A09D
            mBorderColorHover = mBorderColor
            mBorderColorPressed = mBorderColor
        Case Is = Visual2005
            mBackColor = &HABC2C2
            mBackColorHover = &HF2F8F8
            mBackColorPressed = &HE6EDEE
            mBorderColor = &HABC2C2
            mBorderColorHover = mBorderColor
            mBorderColorPressed = mBorderColor
        Case Is = Norton2005
            mBackColor = &H2C5F5
            mBackColorHover = &HE2F9FF
            mBackColorPressed = &HAFEFFE
            mBorderColor = &H2C5F5
            mBorderColorHover = mBorderColor
            mBorderColorPressed = mBorderColor
        Case Is = RedColor
            mBackColor = &H26368B
            mBackColorHover = &H4763FF
            mBackColorPressed = &H425CEE
            mBorderColor = vbRed
            mBorderColorHover = mBorderColor
            mBorderColorPressed = mBorderColor
        Case Is = GreenColor
            mBackColor = &H578B2E
            mBackColorHover = &H9FFF54
            mBackColorPressed = &H80CD43
            mBorderColor = vbGreen
            mBorderColorHover = mBorderColor
            mBorderColorPressed = mBorderColor
        Case Is = BlueColor
            mBackColor = &H8B4027
            mBackColorHover = &HFF7648
            mBackColorPressed = &HCD5F3A
            mBorderColor = vbBlue
            mBorderColorHover = mBorderColor
            mBorderColorPressed = mBorderColor
    End Select
    UserControl_Paint
End Property
Public Property Get ButtonType() As EnumButtonType
    ButtonType = mButtonType
End Property
Public Property Let ButtonType(ByVal EBT As EnumButtonType)
    mButtonType = EBT
    PropertyChanged "ButtonType"
    UserControl_Paint
End Property
Public Property Get CaptionAlignment() As EnumCaptionAlignment
    CaptionAlignment = mCaptionAlignment
End Property
Public Property Let CaptionAlignment(ByVal ECA As EnumCaptionAlignment)
    mCaptionAlignment = ECA
    PropertyChanged "CaptionAlignment"
    UserControl_Paint
End Property
Public Property Get CaptionEffect() As EnumCaptionEffect
    CaptionEffect = mCaptionEffect
End Property
Public Property Let CaptionEffect(ByVal ECE As EnumCaptionEffect)
    mCaptionEffect = ECE
    PropertyChanged "CaptionEffect"
    UserControl_Paint
End Property
Public Property Get CaptionStyle() As EnumCaptionStyle
    CaptionStyle = mCaptionStyle
End Property
Public Property Let CaptionStyle(ByVal ECS As EnumCaptionStyle)
    mCaptionStyle = ECS
    PropertyChanged "CaptionStyle"
    UserControl_Paint
End Property
Public Property Get DropDown() As EnumDropDown
    DropDown = mDropDown
End Property
Public Property Let DropDown(ByVal EDD As EnumDropDown)
    mDropDown = EDD
    PropertyChanged "DropDown"
    UserControl_Paint
End Property
Public Property Get PictureAlignment() As EnumPictureAlignment
    PictureAlignment = mPictureAlignment
End Property
Public Property Let PictureAlignment(ByVal EPA As EnumPictureAlignment)
    mPictureAlignment = EPA
    PropertyChanged "PictureAlignment"
    UserControl_Paint
End Property
Public Property Get BackColor() As OLE_COLOR
    BackColor = mBackColor
End Property
Public Property Let BackColor(ByVal New_Color As OLE_COLOR)
    mBackColor = New_Color
    PropertyChanged "BackColor"
    UserControl_Paint
End Property
Public Property Get BackColorPressed() As OLE_COLOR
    BackColorPressed = mBackColorPressed
End Property
Public Property Let BackColorPressed(ByVal New_Color As OLE_COLOR)
    mBackColorPressed = New_Color
    PropertyChanged "BackColorPressed"
    UserControl_Paint
End Property
Public Property Get BackColorHover() As OLE_COLOR
    BackColorHover = mBackColorHover
End Property
Public Property Let BackColorHover(ByVal New_Color As OLE_COLOR)
    mBackColorHover = New_Color
    PropertyChanged "BackColorHover"
    UserControl_Paint
End Property
Public Property Get BorderColor() As OLE_COLOR
    BorderColor = mBorderColor
End Property
Public Property Let BorderColor(ByVal New_Color As OLE_COLOR)
    mBorderColor = New_Color
    PropertyChanged "BorderColor"
    UserControl_Paint
End Property
Public Property Get BorderColorPressed() As OLE_COLOR
    BorderColorPressed = mBorderColorPressed
End Property
Public Property Let BorderColorPressed(ByVal New_Color As OLE_COLOR)
    mBorderColorPressed = New_Color
    PropertyChanged "BorderColorPressed"
    UserControl_Paint
End Property
Public Property Get BorderColorHover() As OLE_COLOR
    BorderColorHover = mBorderColorHover
End Property
Public Property Let BorderColorHover(ByVal New_Color As OLE_COLOR)
    mBorderColorHover = New_Color
    PropertyChanged "BorderColorHover"
    UserControl_Paint
End Property
Public Property Get ForeColor() As OLE_COLOR
    ForeColor = mForeColor
End Property
Public Property Let ForeColor(ByVal New_Color As OLE_COLOR)
    mForeColor = New_Color
    PropertyChanged "ForeColor"
    UserControl_Paint
End Property
Public Property Get ForeColorPressed() As OLE_COLOR
    ForeColorPressed = mForeColorPressed
End Property
Public Property Let ForeColorPressed(ByVal New_Color As OLE_COLOR)
    mForeColorPressed = New_Color
    PropertyChanged "ForeColorPressed"
    UserControl_Paint
End Property
Public Property Get ForeColorHover() As OLE_COLOR
    ForeColorHover = mForeColorHover
End Property
Public Property Let ForeColorHover(ByVal New_Color As OLE_COLOR)
    mForeColorHover = New_Color
    PropertyChanged "ForeColorHover"
    UserControl_Paint
End Property
Public Property Get EffectColor() As OLE_COLOR
    EffectColor = mEffectColor
End Property
Public Property Let EffectColor(ByVal New_Color As OLE_COLOR)
    mEffectColor = New_Color
    PropertyChanged "EffectColor"
    UserControl_Paint
End Property
Public Property Get Caption() As String
    Caption = mCaption
End Property
Public Property Let Caption(ByVal NewCaption As String)
    mCaption = NewCaption
    PropertyChanged "Caption"
    UserControl_Paint
End Property
Public Property Get FocusRect() As Boolean
    FocusRect = mFocusRect
End Property
Public Property Let FocusRect(ByVal New_FocusRect As Boolean)
    mFocusRect = New_FocusRect
    PropertyChanged "FocusRect"
    UserControl_Paint
End Property
Public Property Get Value() As Boolean
    Value = mValue
End Property
Public Property Let Value(ByVal New_Value As Boolean)
    mValue = New_Value
    PropertyChanged "Value"
    UserControl_Paint
End Property
Public Property Get HandPointer() As Boolean
    HandPointer = mHandPointer
End Property
Public Property Let HandPointer(ByVal New_HandPointer As Boolean)
    mHandPointer = New_HandPointer
    PropertyChanged "HandPointer"
    UserControl_Paint
End Property
Public Property Get Picture() As Picture
    Set Picture = mPicture
End Property
Public Property Set Picture(ByVal New_Picture As Picture)
    Set mPicture = New_Picture
    PropertyChanged "Picture"
    UserControl_Paint
End Property
Public Property Get PictureGray() As Boolean
    PictureGray = mPictureGray
End Property
Public Property Let PictureGray(ByVal New_PictureGray As Boolean)
    mPictureGray = New_PictureGray
    PropertyChanged "PictureGray"
    UserControl_Paint
End Property
'............................................................
'............................................................
Public Property Get Enabled() As Boolean
    Enabled = UserControl.Enabled
End Property
Public Property Let Enabled(ByVal New_Enabled As Boolean)
    UserControl.Enabled = New_Enabled
    PropertyChanged "Enabled"
    UserControl_Paint
End Property
Public Property Get Font() As Font
    Set Font = UserControl.Font
End Property
Public Property Set Font(ByVal New_Font As Font)
    Set UserControl.Font = New_Font
    PropertyChanged "Font"
    UserControl_Paint
End Property
Public Property Get MousePointer() As MousePointerConstants
    MousePointer = UserControl.MousePointer
End Property
Public Property Let MousePointer(ByVal New_MousePointer As MousePointerConstants)
    UserControl.MousePointer() = New_MousePointer
    PropertyChanged "MousePointer"
    UserControl_Paint
End Property
Public Property Get MouseIcon() As Picture
    Set MouseIcon = UserControl.MouseIcon
End Property
Public Property Set MouseIcon(ByVal New_MouseIcon As Picture)
    Set UserControl.MouseIcon() = New_MouseIcon
    PropertyChanged "MouseIcon"
    UserControl_Paint
End Property
'............................................................
'>> End Properties
'............................................................

'............................................................
'>> Convert Color's >> Red,Green,Blue To VB Color's
'............................................................
Private Sub ConvertRGB(ByVal Color As Long, R, G, B As Long)
    TranslateColor Color, 0, Color
    R = Color And vbRed
    G = (Color And vbGreen) / 256
    B = (Color And vbBlue) / 65536
End Sub
'............................................................
'>> Start UserControl
'............................................................
Private Sub UserControl_Click()
    '>> Start The Button Pressed
    If Me.ButtonType = CheckBox Then mValue = MouseDown = False
    UserControl_Paint
    RaiseEvent Click
End Sub
Private Sub UserControl_DblClick()
    '>> Start The Button Pressed Too
    MouseDown = True
    UserControl_Paint
    RaiseEvent DblClick
End Sub
Private Sub UserControl_GotFocus()
    '>> Show FocusRect If Click Button
    mFocused = True
    UserControl_Paint
End Sub
Private Sub UserControl_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 32 Or KeyCode = 13 Then                   '>> Space Or '>> Enter
        MouseDown = True
        UserControl_Paint
    End If
    RaiseEvent KeyDown(KeyCode, Shift)
End Sub
Private Sub UserControl_KeyPress(KeyAscii As Integer)
    RaiseEvent KeyPress(KeyAscii)
End Sub
Private Sub UserControl_KeyUp(KeyCode As Integer, Shift As Integer)
    If MouseDown = True Then
        MouseDown = False
        UserControl_Paint
        '>> Return Button To Original Shape If ButtonType >> CheckBox
        If KeyCode = vbKeyReturn Then UserControl_MouseDown 0, 0, 0, 0
    End If
    RaiseEvent KeyUp(KeyCode, Shift)
End Sub
Private Sub UserControl_LostFocus()
    '>> Visible FocusRect If Clicked Another Button
    mFocused = False
    UserControl_Paint
End Sub
Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    '>> Start The Button Pressed
    MouseDown = True
    UserControl_Paint
    RaiseEvent MouseDown(Button, Shift, X, Y)
End Sub
Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim pt               As POINTAPI
    Dim Hovered          As Boolean                         '>> False Or Ture
    With UserControl
        GetCursorPos pt
        ScreenToClient .hWnd, pt
        '>> We Don't Need To Check Postion Mouse
        If Not UserControl.Ambient.UserMode Then Exit Sub
        ' See If The Mouse Is Over The Control
        If (pt.X < 0) Or (pt.Y < 0) Or (pt.X > .ScaleWidth) Or (pt.Y > .ScaleHeight) Then
            Hovered = False                                '>> Mouse Is Leave Of Button
            ReleaseCapture
        Else
            Hovered = True                                 '>> Mouse Over Button
            SetCapture .hWnd
        End If
        ' Redraw The Control If Necessary
        If MouseMove <> Hovered Then
            MouseMove = Hovered
            MouseDown = False
            UserControl_Paint
        End If
    End With
    RaiseEvent MouseMove(Button, Shift, X, Y)
End Sub
Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If GetCapture() <> UserControl.hWnd Then SetCapture UserControl.hWnd
    Dim Pressed          As Boolean
    ' Raise The Click Event If The Button Is Currently Pressed
    If Pressed Then RaiseEvent Click
    Pressed = MouseDown
    ' Stop The Button Pressed
    MouseDown = False
    UserControl_Paint
    RaiseEvent MouseUp(Button, Shift, X, Y)
End Sub
Private Sub UserControl_InitProperties()
    'On Local Error Resume Next
    UserControl.Width = 1200
    UserControl.Height = 500

    mButtonShape = Rectangle
    mButtonStyle = Visual
    mButtonStyleColors = SingleColor
    mButtonTheme = NoTheme
    mButtonType = Button
    mCaptionAlignment = CenterCaption
    mCaptionStyle = Normal
    mCaptionEffect = Default
    mDropDown = None
    mPictureAlignment = CenterPicture

    mBackColor = vbButtonFace
    mBackColorPressed = vbButtonFace
    mBackColorHover = vbButtonFace

    'mBorderColor = vbBlack
    'mBorderColorHover = vbBlack
    'mBorderColorPressed = vbBlack

    mForeColor = vbBlack
    mForeColorPressed = vbRed
    mForeColorHover = vbBlue
    mEffectColor = vbWhite

    mCaption = Ambient.DisplayName
    mFocusRect = True
    mValue = False
    mHandPointer = False
    Set mPicture = Nothing
    mPictureGray = False
    UserControl.Enabled = True
    UserControl.Font = "Tahoma"
    UserControl_Paint
End Sub
Private Sub UserControl_OLECompleteDrag(Effect As Long)
    RaiseEvent OLECompleteDrag(Effect)
End Sub
Private Sub UserControl_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    RaiseEvent OLEDragDrop(Data, Effect, Button, Shift, X, Y)
End Sub
Private Sub UserControl_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
    RaiseEvent OLEDragOver(Data, Effect, Button, Shift, X, Y, State)
End Sub
Private Sub UserControl_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)
    RaiseEvent OLEGiveFeedback(Effect, DefaultCursors)
End Sub
Private Sub UserControl_OLESetData(Data As DataObject, DataFormat As Integer)
    RaiseEvent OLESetData(Data, DataFormat)
End Sub
Private Sub UserControl_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    RaiseEvent OLEStartDrag(Data, AllowedEffects)
End Sub
Private Sub UserControl_Paint()
    'On Local Error Resume Next
    With UserControl
        .AutoRedraw = True
        .ScaleMode = 3
        .Cls
        '............................................................
        '>> Width = Height To Nice Show Border's.
        '............................................................
        If .Width < 375 Then .Width = 375
        If .Height < 375 Then .Height = 375
        If Not mButtonShape = Rectangle Then
            If Not mButtonShape = RoundedRectangle Then
                If .Width > .Height Then .Height = .Width Else .Height = .Width
            End If
        End If
        '............................................................
        '>> Change MousePointer To HandCursor
        '............................................................
        If MouseDown Then
            If mFocused And mHandPointer Then SetCursor LoadCursor(0, CURSOR_HAND)
        ElseIf MouseMove Then
            If mHandPointer Then SetCursor LoadCursor(0, CURSOR_HAND)
        Else
            If mFocused And mHandPointer Then SetCursor LoadCursor(0, CURSOR_HAND)
        End If
        '............................................................
        '>> Use Value For Viwe CheckBox(ButtonPressed) At TimeShow
        '............................................................
        Select Case mButtonType
            Case Is = CheckBox
                If mValue Then MouseDown = True
        End Select
        '............................................................
        '>> Change BackColor When Mouse Hovered Or Pressed Or Off
        '............................................................
        Dim BkRed(0 To 1), BkGreen(0 To 1), BkBlue(0 To 1) As Long
        Dim vert(1) As TRIVERTEX, GRect As GRADIENT_RECT
        If MouseDown Then
            ConvertRGB mBackColor, BkRed(0), BkGreen(0), BkBlue(0)
            ConvertRGB mBackColorPressed, BkRed(1), BkGreen(1), BkBlue(1)
        ElseIf MouseMove Then
            ConvertRGB mBackColor, BkRed(0), BkGreen(0), BkBlue(0)
            ConvertRGB mBackColorHover, BkRed(1), BkGreen(1), BkBlue(1)
        Else
            ConvertRGB mBackColor, BkRed(0), BkGreen(0), BkBlue(0)
            ConvertRGB mBackColorPressed, BkRed(1), BkGreen(1), BkBlue(1)
        End If
        vert(0).Red = val("&H" & Hex(BkRed(0)) & "00"): vert(0).Green = val("&H" & Hex(BkGreen(0)) & "00"): vert(0).Blue = val("&H" & Hex(BkBlue(0)) & "00"): vert(0).Alpha = 0&
        vert(1).Red = val("&H" & Hex(BkRed(1)) & "00"): vert(1).Green = val("&H" & Hex(BkGreen(1)) & "00"): vert(1).Blue = val("&H" & Hex(BkBlue(1)) & "00"): vert(1).Alpha = 0&
        GRect.UpperLeft = 1: GRect.LowerRight = 0
        '............................................................
        '>> ButtonStyleColors,Transparent,SingleColour
        '>> GradientHorizontalFill,VerticalGradientFill
        '>> SwapHorizontalFill,SwapVerticalFill,GradientTubeCenter_H
        '>> ,GradientTubeTopBottom_H,GradientTubeCenter_V
        '>> GradientTubeTopBottom_V
        '............................................................
        Select Case mButtonStyleColors
            Case Is = Transparent
                .BackStyle = 0
            Case Is = SingleColor
                .BackStyle = 1
                If MouseDown Then
                    .BackColor = mBackColorPressed
                Else
                    If MouseMove Then
                        .BackColor = mBackColorHover
                    Else
                        .BackColor = mBackColor
                    End If
                End If
            Case Is = Gradient_H
                .BackStyle = 1
                vert(0).X = 0: vert(0).Y = .ScaleHeight
                vert(1).X = .ScaleWidth: vert(1).Y = 0
                GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_H
            Case Is = Gradient_V
                .BackStyle = 1
                vert(0).X = 0: vert(0).Y = .ScaleHeight
                vert(1).X = .ScaleWidth: vert(1).Y = 0
                GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_V
            Case Is = TubeCenter_H
                .BackStyle = 1
                vert(0).X = .ScaleWidth: vert(0).Y = 0
                vert(1).X = 0: vert(1).Y = .ScaleHeight / 2
                GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_V
                vert(0).X = 0: vert(0).Y = .ScaleHeight
                vert(1).X = .ScaleWidth: vert(1).Y = .ScaleHeight / 2
                GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_V
            Case Is = TubeTopBottom_H
                .BackStyle = 1
                vert(0).X = 0: vert(0).Y = .ScaleHeight / 2
                vert(1).X = .ScaleWidth: vert(1).Y = 0
                GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_V
                vert(0).X = 0: vert(0).Y = .ScaleHeight / 2
                vert(1).X = .ScaleWidth: vert(1).Y = .ScaleHeight
                GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_V
            Case Is = TubeCenter_V
                .BackStyle = 1
                vert(0).X = 0: vert(0).Y = 0
                vert(1).X = .ScaleWidth / 2: vert(1).Y = .ScaleHeight
                GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_H
                vert(0).X = .ScaleWidth: vert(0).Y = .ScaleHeight
                vert(1).X = .ScaleWidth / 2: vert(1).Y = 0
                GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_H
            Case Is = TubeTopBottom_V
                .BackStyle = 1
                vert(0).X = .ScaleWidth / 2: vert(0).Y = 0
                vert(1).X = 0: vert(1).Y = .ScaleHeight
                GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_H
                vert(0).X = .ScaleWidth / 2: vert(0).Y = .ScaleHeight
                vert(1).X = .ScaleWidth: vert(1).Y = 0
                GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_H
        End Select
        '.............................................................
        '>> ButtonStyle,Visual, Flat,OverFlat,Java,XpOffice,WinXp
        '>> Vista,Glass
        '>> Set BorderColors To ButtonStyle At Hover,Press,Off
        '.............................................................
        Select Case mButtonStyle
            Case Is = Visual
                mBorderColor = vb3DDKShadow
                mBorderColorHover = vb3DDKShadow
                mBorderColorPressed = vb3DHighlight
            Case Is = Flat
                mBorderColor = vb3DDKShadow
                mBorderColorHover = vb3DDKShadow
                mBorderColorPressed = vb3DHighlight
            Case Is = OverFlat
                mBorderColor = mBackColor    '>> Visible BorderColor At RunTime
                mBorderColorHover = vb3DDKShadow
                mBorderColorPressed = vb3DHighlight
            Case Is = Java
                mBorderColor = vbButtonShadow
                mBorderColorHover = vbButtonShadow
                mBorderColorPressed = vbButtonShadow
            Case Is = XPOffice
                mBorderColor = vbButtonFace
                mBorderColorHover = vbBlack
                mBorderColorPressed = vbBlack
                '............................................................
                '>> Change BackColor XpOffice When Mouse Hovered,Pressed,Off
                '............................................................
                If Not mButtonStyleColors = Transparent Then
                    If MouseDown Then
                        ConvertRGB &HA57F71, BkRed(0), BkGreen(0), BkBlue(0)
                        ConvertRGB mBackColorPressed, BkRed(1), BkGreen(1), BkBlue(1)
                    ElseIf MouseMove Then
                        ConvertRGB &HAC9891, BkRed(0), BkGreen(0), BkBlue(0)
                        ConvertRGB mBackColorHover, BkRed(1), BkGreen(1), BkBlue(1)
                    Else
                        ConvertRGB mBackColor, BkRed(0), BkGreen(0), BkBlue(0)
                        ConvertRGB mBackColor, BkRed(1), BkGreen(1), BkBlue(1)
                    End If
                    vert(0).Red = val("&H" & Hex(BkRed(0)) & "00"): vert(0).Green = val("&H" & Hex(BkGreen(0)) & "00"): vert(0).Blue = val("&H" & Hex(BkBlue(0)) & "00"): vert(0).Alpha = 0&
                    vert(1).Red = val("&H" & Hex(BkRed(1)) & "00"): vert(1).Green = val("&H" & Hex(BkGreen(1)) & "00"): vert(1).Blue = val("&H" & Hex(BkBlue(1)) & "00"): vert(1).Alpha = 0&
                    GRect.UpperLeft = 1: GRect.LowerRight = 0
                    vert(0).X = 0: vert(0).Y = .ScaleHeight
                    vert(1).X = .ScaleWidth: vert(1).Y = 0
                    GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_V
                End If
            Case Is = WinXp
                mBorderColor = vbBlack
                mBorderColorHover = vbBlack
                mBorderColorPressed = vbBlack
                '............................................................
                '>> Change BackColor WinXp When Mouse Hovered,Pressed,Off
                '............................................................
                If Not mButtonStyleColors = Transparent Then
                    If MouseDown Then
                        ConvertRGB mBackColor, BkRed(0), BkGreen(0), BkBlue(0)
                        ConvertRGB &HE0E6E6, BkRed(1), BkGreen(1), BkBlue(1)
                    ElseIf .Enabled Then
                        ConvertRGB mBackColor, BkRed(0), BkGreen(0), BkBlue(0)
                        ConvertRGB Me.BackColorPressed, BkRed(1), BkGreen(1), BkBlue(1)
                    Else
                        ConvertRGB &HDBE7E7, BkRed(0), BkGreen(0), BkBlue(0)
                        ConvertRGB &HDBE7E7, BkRed(1), BkGreen(1), BkBlue(1)
                        mBorderColor = &H8DABAB
                    End If
                    vert(0).Red = val("&H" & Hex(BkRed(0)) & "00"): vert(0).Green = val("&H" & Hex(BkGreen(0)) & "00"): vert(0).Blue = val("&H" & Hex(BkBlue(0)) & "00"): vert(0).Alpha = 0&
                    vert(1).Red = val("&H" & Hex(BkRed(1)) & "00"): vert(1).Green = val("&H" & Hex(BkGreen(1)) & "00"): vert(1).Blue = val("&H" & Hex(BkBlue(1)) & "00"): vert(1).Alpha = 0&
                    GRect.UpperLeft = 1: GRect.LowerRight = 0
                    vert(0).X = 0: vert(0).Y = .ScaleHeight
                    vert(1).X = .ScaleWidth: vert(1).Y = 0
                    GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_V
                End If
            Case Is = Vista
                mBorderColor = &H8F8F8E
                mBorderColorHover = &HB17F3C
                mBorderColorPressed = &H5C411D
                '............................................................
                '>> Change BackColor Vista When Mouse Hovered,Pressed,Off
                '............................................................
                If Me.ButtonStyle = Vista And Not Me.ButtonStyleColors = Transparent Then
                    If MouseDown Then
                        ConvertRGB &HF8ECD5, BkRed(1), BkGreen(1), BkBlue(1)
                        ConvertRGB mBackColorPressed, BkRed(0), BkGreen(0), BkBlue(0)
                    ElseIf MouseMove Then
                        ConvertRGB &HFEFCF7, BkRed(1), BkGreen(1), BkBlue(1)
                        ConvertRGB mBackColorHover, BkRed(0), BkGreen(0), BkBlue(0)
                    ElseIf .Enabled Then
                        ConvertRGB &HEFEFEF, BkRed(1), BkGreen(1), BkBlue(1)
                        ConvertRGB mBackColor, BkRed(0), BkGreen(0), BkBlue(0)
                    Else
                        ConvertRGB &HF4F4F4, BkRed(1), BkGreen(1), BkBlue(1)
                        ConvertRGB &HF0F0F0, BkRed(0), BkGreen(0), BkBlue(0)
                        mBorderColor = &HB5B2AD
                    End If
                    vert(0).Red = val("&H" & Hex(BkRed(0)) & "00"): vert(0).Green = val("&H" & Hex(BkGreen(0)) & "00"): vert(0).Blue = val("&H" & Hex(BkBlue(0)) & "00"): vert(0).Alpha = 0&
                    vert(1).Red = val("&H" & Hex(BkRed(1)) & "00"): vert(1).Green = val("&H" & Hex(BkGreen(1)) & "00"): vert(1).Blue = val("&H" & Hex(BkBlue(1)) & "00"): vert(1).Alpha = 0&
                    GRect.UpperLeft = 1: GRect.LowerRight = 0
                    If mButtonShape = Top_Triangle Or mButtonShape = Down_Triangle _
                            Or mButtonShape = top_Arrow Or mButtonShape = Down_Arrow Then
                        vert(0).X = .ScaleWidth / 1.5: vert(0).Y = 0
                        vert(1).X = 0: vert(1).Y = .ScaleHeight
                        GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_H
                        vert(0).X = .ScaleWidth / 2: vert(0).Y = .ScaleHeight
                        vert(1).X = .ScaleWidth + 25: vert(1).Y = 0
                        GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_H
                    Else
                        vert(0).X = 0: vert(0).Y = .ScaleHeight / 1.5
                        vert(1).X = .ScaleWidth: vert(1).Y = 0
                        GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_V
                        vert(0).X = 0: vert(0).Y = .ScaleHeight / 2
                        vert(1).X = .ScaleWidth: vert(1).Y = .ScaleHeight + 25
                        GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_V
                    End If
                End If
            Case Is = Glass
                mBorderColor = mBackColor
                mBorderColorHover = mBackColorHover
                mBorderColorPressed = mBackColorPressed
                '............................................................
                '>> Change BackColor Glass When Mouse Hovered,Pressed,Off
                '............................................................
                If Not mButtonStyleColors = Transparent Then
                    If MouseDown Then
                        ConvertRGB vbWhite, BkRed(1), BkGreen(1), BkBlue(1)
                        ConvertRGB mBackColorPressed, BkRed(0), BkGreen(0), BkBlue(0)
                    ElseIf MouseMove Then
                        ConvertRGB vbWhite, BkRed(1), BkGreen(1), BkBlue(1)
                        ConvertRGB mBackColorHover, BkRed(0), BkGreen(0), BkBlue(0)
                    ElseIf .Enabled Then
                        ConvertRGB vbWhite, BkRed(1), BkGreen(1), BkBlue(1)
                        ConvertRGB mBackColor, BkRed(0), BkGreen(0), BkBlue(0)
                    Else
                        ConvertRGB vbWhite, BkRed(1), BkGreen(1), BkBlue(1)
                        ConvertRGB &HA4B6B7, BkRed(0), BkGreen(0), BkBlue(0)
                        mBorderColor = &HA4B6B7
                    End If
                    vert(0).Red = val("&H" & Hex(BkRed(0)) & "00"): vert(0).Green = val("&H" & Hex(BkGreen(0)) & "00"): vert(0).Blue = val("&H" & Hex(BkBlue(0)) & "00"): vert(0).Alpha = 0&
                    vert(1).Red = val("&H" & Hex(BkRed(1)) & "00"): vert(1).Green = val("&H" & Hex(BkGreen(1)) & "00"): vert(1).Blue = val("&H" & Hex(BkBlue(1)) & "00"): vert(1).Alpha = 0&
                    GRect.UpperLeft = 1: GRect.LowerRight = 0
                    If mButtonShape = Top_Triangle Or mButtonShape = Down_Triangle _
                            Or mButtonShape = top_Arrow Or mButtonShape = Down_Arrow Then
                        vert(0).X = .ScaleWidth: vert(0).Y = 0
                        vert(1).X = -.ScaleWidth / 6: vert(1).Y = .ScaleHeight
                        GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_H
                        vert(0).X = .ScaleWidth / 2: vert(0).Y = .ScaleHeight
                        vert(1).X = .ScaleWidth + .ScaleWidth / 3: vert(1).Y = 0
                        GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_H
                    Else
                        vert(0).X = 0: vert(0).Y = .ScaleHeight
                        vert(1).X = .ScaleWidth: vert(1).Y = -.ScaleHeight / 6
                        GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_V
                        vert(0).X = 0: vert(0).Y = .ScaleHeight / 2
                        vert(1).X = .ScaleWidth: vert(1).Y = .ScaleHeight + .ScaleHeight / 3
                        GradientFill .hdc, vert(0), 2, GRect, 1, GRADIENT_FILL_RECT_V
                    End If
                End If
        End Select
        '............................................................
        '>> Get Postion Picture
        '............................................................
        If mPicture Is Nothing Then
            PicturePos(1).X = 0
            PicturePos(1).Y = 0
        Else
            PicturePos(1).X = ScaleX(mPicture.Width, vbHimetric, vbPixels)
            PicturePos(1).Y = ScaleY(mPicture.Height, vbHimetric, vbPixels)
            '............................................................
            '>> PictureAlignment,Top PictureLeft Picture,Center Picture
            '>> Right Picture,Bottom Picture
            '............................................................
            Select Case mPictureAlignment
                Case Is = TopPicture
                    PicturePos(0).X = (.ScaleWidth - PicturePos(1).X) / 2
                    PicturePos(0).Y = (.ScaleHeight - PicturePos(1).Y) / .ScaleHeight + 4
                Case Is = LeftPicture
                    PicturePos(0).X = (.ScaleWidth - PicturePos(1).X) / .ScaleWidth + 4
                    PicturePos(0).Y = (.ScaleHeight - PicturePos(1).Y) / 2
                Case Is = CenterPicture
                    PicturePos(0).X = (.ScaleWidth - PicturePos(1).X) / 2
                    PicturePos(0).Y = (.ScaleHeight - PicturePos(1).Y) / 2
                Case Is = RightPicture
                    PicturePos(0).X = (.ScaleWidth - PicturePos(1).X) - 5
                    PicturePos(0).Y = (.ScaleHeight - PicturePos(1).Y) / 2
                Case Is = BottomPicture
                    PicturePos(0).X = (.ScaleWidth - PicturePos(1).X) / 2
                    PicturePos(0).Y = (.ScaleHeight - PicturePos(1).Y) - 5
            End Select
            '............................................................
            '>> Moving The Picture When Mouse Hovered Or Pressed
            '............................................................
            If Enabled = True Then
                Dim GrPic As POINTAPI
                Dim Gray As Long
                If MouseDown Then
                    .PaintPicture mPicture, PicturePos(0).X + 1, PicturePos(0).Y + 1    '>> +1 Pixel To Top And Right
                ElseIf MouseMove Then
                    .PaintPicture mPicture, PicturePos(0).X, PicturePos(0).Y
                    '>> If mButtonStyle = XPOffice Then -1 Pixel About Postion Picture When Mouse Hovered
                    If mButtonStyle = XPOffice Then .PaintPicture mPicture, PicturePos(0).X - 1, PicturePos(0).Y - 1
                Else
                    .PaintPicture mPicture, PicturePos(0).X, PicturePos(0).Y
                    '>> Add Little Of Code's To Draw GrayScale Picture.
                    If mPictureGray = True Then
                        For GrPic.X = PicturePos(0).X To PicturePos(0).X + PicturePos(1).X
                            For GrPic.Y = PicturePos(0).Y To PicturePos(0).Y + PicturePos(1).Y
                                Gray = 255 And (GetPixel(.hdc, GrPic.X, GrPic.Y))
                                'Gray = vbRed And (GetPixel(.hDC, GrPic.X, GrPic.Y))
                                If GetPixel(.hdc, GrPic.X, GrPic.Y) <> mBackColor Then
                                    SetPixel hdc, GrPic.X, GrPic.Y, RGB(Gray, Gray, Gray)
                                End If
                            Next GrPic.Y
                        Next GrPic.X
                    End If
                End If
            Else                                               '>> If Enabled = False Then
                '............................................................
                '>> Converting Picture Colour's To Black Color If Button
                '>> Disabled
                '............................................................
                .PaintPicture mPicture, PicturePos(0).X, PicturePos(0).Y
                For GrPic.X = PicturePos(0).X To PicturePos(0).X + PicturePos(1).X
                    For GrPic.Y = PicturePos(0).Y To PicturePos(0).Y + PicturePos(1).Y
                        Gray = 255 And (GetPixel(.hdc, GrPic.X, GrPic.Y)) / 65536
                        If GetPixel(.hdc, GrPic.X, GrPic.Y) <> mBackColor Then
                            SetPixel hdc, GrPic.X, GrPic.Y, RGB(Gray, Gray, Gray)
                        End If
                    Next GrPic.Y
                Next GrPic.X
            End If
        End If
        '............................................................
        '>> CaptionAlignment,Get Size And Postion Text,Top Text
        '>>Left Text,Center Text,Right Text,Bottom Text
        '............................................................
        If Len(mCaption) < 0 Then Exit Sub
        Select Case mCaptionAlignment
            Case Is = TopCaption
                GetTextExtentPoint32 .hdc, mCaption, Len(mCaption), CaptionPos(1)
                CaptionPos(0).X = (.ScaleWidth - CaptionPos(1).X) / 2
                CaptionPos(0).Y = (.ScaleHeight - CaptionPos(1).Y) / .ScaleHeight + 5
            Case Is = LeftCaption
                GetTextExtentPoint32 .hdc, mCaption, Len(mCaption), CaptionPos(1)
                CaptionPos(0).X = (.ScaleWidth - CaptionPos(1).X) / .ScaleWidth + 5
                CaptionPos(0).Y = (.ScaleHeight - CaptionPos(1).Y) / 2
            Case Is = CenterCaption
                GetTextExtentPoint32 .hdc, mCaption, Len(mCaption), CaptionPos(1)
                CaptionPos(0).X = (.ScaleWidth - CaptionPos(1).X) / 2
                CaptionPos(0).Y = (.ScaleHeight - CaptionPos(1).Y) / 2
            Case Is = RightCaption
                GetTextExtentPoint32 .hdc, mCaption, Len(mCaption), CaptionPos(1)
                CaptionPos(0).X = (.ScaleWidth - CaptionPos(1).X) - 5
                CaptionPos(0).Y = (.ScaleHeight - CaptionPos(1).Y) / 2
            Case Is = BottomCaption
                GetTextExtentPoint32 .hdc, mCaption, Len(mCaption), CaptionPos(1)
                CaptionPos(0).X = (.ScaleWidth - CaptionPos(1).X) / 2
                CaptionPos(0).Y = (.ScaleHeight - CaptionPos(1).Y) - 5
        End Select
        '............................................................
        '>> CaptionEffect,Default,Raised,Sunken,Outline
        '............................................................
        Dim EFF          As POINTAPI
        If Enabled = True Then
            Select Case mCaptionEffect
                Case Is = Default
                    If MouseDown Then
                        .ForeColor = mForeColorPressed
                        TextOutA .hdc, CaptionPos(0).X + 1, CaptionPos(0).Y + 1, mCaption, Len(mCaption)
                    ElseIf MouseMove Then
                        .ForeColor = mForeColorHover
                        TextOutA .hdc, CaptionPos(0).X, CaptionPos(0).Y, mCaption, Len(mCaption)
                    Else
                        .ForeColor = mForeColor
                        TextOutA .hdc, CaptionPos(0).X, CaptionPos(0).Y, mCaption, Len(mCaption)
                    End If
                Case Is = Raised
                    EFF.X = -1                             '>> -1 Pixel From Down To Top
                    EFF.Y = -1                             '>> -1 Pixel From Right To Left
                    If MouseDown Then
                        .ForeColor = mEffectColor          '>> Vbwhite
                        TextOutW .hdc, CaptionPos(0).X + EFF.X + 1, CaptionPos(0).Y + EFF.Y + 1, mCaption, Len(mCaption)
                        .ForeColor = mForeColorPressed       '>> mForeColorPressed If You Like.
                        TextOutA .hdc, CaptionPos(0).X + 1, CaptionPos(0).Y + 1, mCaption, Len(mCaption)
                    ElseIf MouseMove Then
                        .ForeColor = mEffectColor          '>> Vbwhite
                        TextOutW .hdc, CaptionPos(0).X + EFF.X, CaptionPos(0).Y + EFF.Y, mCaption, Len(mCaption)
                        .ForeColor = mForeColorHover
                        TextOutA .hdc, CaptionPos(0).X, CaptionPos(0).Y, mCaption, Len(mCaption)
                    Else
                        .ForeColor = mEffectColor
                        TextOutW .hdc, CaptionPos(0).X + EFF.X, CaptionPos(0).Y + EFF.Y, mCaption, Len(mCaption)
                        .ForeColor = mForeColor
                        TextOutA .hdc, CaptionPos(0).X, CaptionPos(0).Y, mCaption, Len(mCaption)
                    End If
                Case Is = Sunken
                    EFF.X = 1                              '>> +1 Pixel From Top To Down
                    EFF.Y = 1                              '>> +1 Pixel From Left To Right
                    If MouseDown Then
                        .ForeColor = mEffectColor          '>> Vbwhite
                        TextOutW .hdc, CaptionPos(0).X + EFF.X + 1, CaptionPos(0).Y + EFF.Y + 1, mCaption, Len(mCaption)
                        .ForeColor = mForeColorPressed       '>> mForeColorPressed
                        TextOutA .hdc, CaptionPos(0).X + 1, CaptionPos(0).Y + 1, mCaption, Len(mCaption)
                    ElseIf MouseMove Then
                        .ForeColor = mEffectColor          '>> Vbwhite
                        TextOutW .hdc, CaptionPos(0).X + EFF.X, CaptionPos(0).Y + EFF.Y, mCaption, Len(mCaption)
                        .ForeColor = mForeColorHover
                        TextOutA .hdc, CaptionPos(0).X, CaptionPos(0).Y, mCaption, Len(mCaption)
                    Else
                        .ForeColor = mEffectColor
                        TextOutW .hdc, CaptionPos(0).X + EFF.X, CaptionPos(0).Y + EFF.Y, mCaption, Len(mCaption)
                        .ForeColor = mForeColor
                        TextOutA .hdc, CaptionPos(0).X, CaptionPos(0).Y, mCaption, Len(mCaption)
                    End If
                Case Is = Outline
                    Dim Out As POINTAPI
                    For Out.X = -1 To 1                    '>> -1 Pixel And +1 Pixel From Top To Down
                        For Out.Y = -1 To 1                '>> -1 Pixel And +1 Pixel From Left To Right
                            If MouseDown Then
                                .ForeColor = mEffectColor
                                TextOutW .hdc, CaptionPos(0).X + Out.X + 1, CaptionPos(0).Y + Out.Y + 1, mCaption, Len(mCaption)
                                .ForeColor = mForeColorPressed
                                TextOutA .hdc, CaptionPos(0).X + 1, CaptionPos(0).Y + 1, mCaption, Len(mCaption)
                            ElseIf MouseMove Then
                                .ForeColor = mEffectColor
                                TextOutW .hdc, CaptionPos(0).X + Out.X, CaptionPos(0).Y + Out.Y, mCaption, Len(mCaption)
                                .ForeColor = mForeColorHover
                                TextOutA .hdc, CaptionPos(0).X, CaptionPos(0).Y, mCaption, Len(mCaption)
                            Else
                                .ForeColor = mEffectColor
                                TextOutW .hdc, CaptionPos(0).X + Out.X, CaptionPos(0).Y + Out.Y, mCaption, Len(mCaption)
                                .ForeColor = mForeColor
                                TextOutA .hdc, CaptionPos(0).X, CaptionPos(0).Y, mCaption, Len(mCaption)
                            End If
                        Next Out.Y
                    Next Out.X
            End Select
        Else    '>> If Enabled = False Then >> Draw Disabled Text Sunken Look
            If mButtonStyle = Java Or mButtonStyle = WinXp Or _
                    mButtonStyle = Vista Or mButtonStyle = Glass Then
                .ForeColor = vb3DShadow
                TextOutA .hdc, CaptionPos(0).X, CaptionPos(0).Y, mCaption, Len(mCaption)
            Else    '>> If Enabled = False Then >> Draw Disabled Text Sunken Look
                .ForeColor = vb3DHighlight
                TextOutW .hdc, CaptionPos(0).X + 1, CaptionPos(0).Y + 1, mCaption, Len(mCaption)
                .ForeColor = vb3DShadow
                TextOutA .hdc, CaptionPos(0).X, CaptionPos(0).Y, mCaption, Len(mCaption)
            End If
        End If
        '............................................................
        '>> Change ForeColor When Mouse Hovered Or Pressed Or Off
        '............................................................
        Dim TotalRed(1), TotalGreen(1), TotalBlue(1) As Long
        Dim R(1), G(1), B(1) As Long
        Dim FrRed, FrGreen, FrBlue As Integer
        Dim Pos(1)       As POINTAPI
        Dim Fore         As POINTAPI
        '............................................................
        '>> CaptionStyle,SingleColour,GradientHorizontalFill
        '>> GradientVerticalFill
        '............................................................
        Select Case mCaptionStyle
            Case Is = Normal                      '>> SingleColour >> MouseOff,MouseMove,MouseDown
                'We Don't Need To Any More Event's Here
                '>> Look To Event's '>> mCaptionEffect = Default
            Case Is = HorizontalFill                       '>> GradientFill Len(Caption)
                If MouseDown Then
                    ConvertRGB mForeColor, R(1), G(1), B(1)
                    ConvertRGB mForeColorPressed, R(0), G(0), B(0)
                ElseIf MouseMove Then
                    ConvertRGB mForeColor, R(1), G(1), B(1)
                    ConvertRGB mForeColorHover, R(0), G(0), B(0)
                Else
                    ConvertRGB mForeColor, R(1), G(1), B(1)
                    ConvertRGB mForeColorPressed, R(0), G(0), B(0)
                End If
                For Fore.X = CaptionPos(0).X To CaptionPos(0).X + CaptionPos(1).X
                    For Fore.Y = CaptionPos(0).Y To CaptionPos(0).Y + CaptionPos(1).Y
                        TotalRed(0) = (R(0) - R(1)) / .ScaleWidth * Fore.X
                        TotalGreen(0) = (G(0) - G(1)) / .ScaleWidth * Fore.X
                        TotalBlue(0) = (B(0) - B(1)) / .ScaleWidth * Fore.X
                        FrRed = R(1) + TotalRed(0)
                        FrGreen = G(1) + TotalGreen(0)
                        FrBlue = B(1) + TotalBlue(0)
                        If GetPixel(hdc, Fore.X, Fore.Y) = .ForeColor Then
                            'If GetPixel(hdc, Fore.X, Fore.Y) <> .ForeColor Then'>> For Show Len(Caption) Fill
                            SetPixel .hdc, Fore.X, Fore.Y, RGB(FrRed, FrGreen, FrBlue)
                            R(1) = R(1) + TotalRed(1)
                            G(1) = G(1) + TotalGreen(1)
                            B(1) = B(1) + TotalBlue(1)
                        End If
                    Next Fore.Y
                Next Fore.X
            Case Is = VerticalFill
                If MouseDown Then
                    ConvertRGB mForeColor, R(0), G(0), B(0)
                    ConvertRGB mForeColorPressed, R(1), G(1), B(1)
                ElseIf MouseMove Then
                    ConvertRGB mForeColor, R(0), G(0), B(0)
                    ConvertRGB mForeColorHover, R(1), G(1), B(1)
                Else
                    ConvertRGB mForeColor, R(0), G(0), B(0)
                    ConvertRGB mForeColorPressed, R(1), G(1), B(1)
                End If
                For Fore.X = CaptionPos(0).X To CaptionPos(0).X + CaptionPos(1).X
                    For Fore.Y = CaptionPos(0).Y To CaptionPos(0).Y + CaptionPos(1).Y
                        TotalRed(0) = (R(0) - R(1)) / .ScaleHeight * Fore.Y
                        TotalGreen(0) = (G(0) - G(1)) / .ScaleHeight * Fore.Y
                        TotalBlue(0) = (B(0) - B(1)) / .ScaleHeight * Fore.Y
                        FrRed = R(1) + TotalRed(0)
                        FrGreen = G(1) + TotalGreen(0)
                        FrBlue = B(1) + TotalBlue(0)
                        If GetPixel(hdc, Fore.X, Fore.Y) = .ForeColor Then
                            SetPixel .hdc, Fore.X, Fore.Y, RGB(FrRed, FrGreen, FrBlue)
                            R(1) = R(1) + TotalRed(1)
                            G(1) = G(1) + TotalGreen(1)
                            B(1) = B(1) + TotalBlue(1)
                        End If
                    Next Fore.Y
                Next Fore.X
        End Select
        .MaskColor = .BackColor                            '>> Change ButtonStyleColor From Opaque To Transparent
        '............................................................
        '>> Change BorderColor When Mouse Hovered Or Pressed Or Off
        '............................................................
        If MouseDown Then
            .ForeColor = mBorderColorPressed
        ElseIf MouseMove Then
            .ForeColor = mBorderColorHover
        Else
            .ForeColor = mBorderColor
        End If
        '............................................................
        '>> Calling ButtonShape's
        '............................................................
        Select Case mButtonShape
            Case Is = Rectangle: Redraw_Rectangle
            Case Is = RoundedRectangle: Redraw_RoundedRectangle
            Case Is = Round: Redraw_Round
            Case Is = Diamond: Redraw_Diamond
            Case Is = Top_Triangle: Redraw_Top_Triangle
            Case Is = Left_Triangle: Redraw_Left_Triangle
            Case Is = Right_Triangle: Redraw_Right_Triangle
            Case Is = Down_Triangle: Redraw_Down_Triangle
            Case Is = top_Arrow: Redraw_Top_Arrow
            Case Is = Left_Arrow: Redraw_Left_Arrow
            Case Is = Right_Arrow: Redraw_Right_Arrow
            Case Is = Down_Arrow: Redraw_Down_Arrow
        End Select
        '............................................................
        '>> Use GetPixel And SetPixel For Make Point's On FocusRect.
        '............................................................
        If Not mButtonStyle = Java And mFocusRect And mFocused Then
            If Not mButtonStyle = WinXp And mFocusRect And mFocused Then
                If Not mButtonStyle = Vista And mFocusRect And mFocused Then
                    For Fo.X = 3 To .ScaleWidth - 3 Step 2
                        For Fo.Y = 3 To .ScaleHeight - 3 Step 2
                            If GetPixel(.hdc, Fo.X, Fo.Y) = .ForeColor Then SetPixel .hdc, Fo.X, Fo.Y, vbBlack
                        Next Fo.Y: Next Fo.X
                    For Fo.X = 2 To .ScaleWidth - 2 Step 2
                        For Fo.Y = 2 To .ScaleHeight - 2 Step 2
                            If GetPixel(.hdc, Fo.X, Fo.Y) = .ForeColor Then SetPixel .hdc, Fo.X, Fo.Y, vbBlack
                        Next Fo.Y: Next Fo.X
                End If
            End If
        End If
        '............................................................
        '>> Draw FocusRect Java About The Text.
        '............................................................
        If Len(mCaption) > 0 Then
            If mButtonStyle = Java And mFocusRect And mFocused Then
                .ForeColor = BDR_FOCUSRECT_JAVA
                RoundRect hdc, CaptionPos(1).X + CaptionPos(0).X + 2, CaptionPos(1).Y + CaptionPos(0).Y + 2, CaptionPos(0).X - 3, CaptionPos(0).Y - 2, 0, 0
            End If
        End If
        '............................................................
        '>> DropDown,Left DropDown,Right DropDown
        '............................................................
        Dim Flags(1)     As POINTAPI
        Select Case mDropDown
            Case Is = LeftDropDown
                Flags(0).X = 2
                Flags(0).Y = .ScaleHeight / 2 + Flags(0).Y / .ScaleHeight - 8
            Case Is = RightDropDown
                Flags(0).X = .ScaleWidth - 21
                Flags(0).Y = .ScaleHeight / 2 + Flags(0).Y / .ScaleHeight - 8
        End Select
        '............................................................
        '>> DropDown >> Left DropDown,Right DropDown
        '............................................................
        If Not mDropDown = None Then                       '>> So If mDropDown=LeftDropDown Or RightDropDown then
            .ForeColor = vbBlack                           '>> mForeColor If You Like.
            'Drwa Chevron
            MoveToEx .hdc, Flags(0).X + 6, Flags(0).Y + 5, Flags(1)
            LineTo .hdc, Flags(0).X + 9, Flags(0).Y + 8
            LineTo .hdc, Flags(0).X + 13, Flags(0).Y + 4
            MoveToEx .hdc, Flags(0).X + 7, Flags(0).Y + 5, Flags(1)
            LineTo .hdc, Flags(0).X + 9, Flags(0).Y + 7
            LineTo .hdc, Flags(0).X + 12, Flags(0).Y + 4
            MoveToEx .hdc, Flags(0).X + 6, Flags(0).Y + 9, Flags(1)
            LineTo .hdc, Flags(0).X + 9, Flags(0).Y + 12
            LineTo .hdc, Flags(0).X + 13, Flags(0).Y + 8
            MoveToEx .hdc, Flags(0).X + 7, Flags(0).Y + 9, Flags(1)
            LineTo .hdc, Flags(0).X + 9, Flags(0).Y + 11
            LineTo .hdc, Flags(0).X + 12, Flags(0).Y + 8
        End If
        .MaskPicture = .Image                              '>> Change ButtonStyleColor From Transparent To Opaque When Add Picture.
        .Refresh                                           '>> AutoRedraw=True
    End With
End Sub
Private Sub Redraw_Rectangle()
    Dim hRgn             As Long
    With UserControl
        '>> Rectangle >> Make Rectangle Shape.
        LineTo .hdc, 0, .ScaleHeight - 1
        LineTo .hdc, .ScaleWidth - 1, .ScaleHeight - 1
        LineTo .hdc, .ScaleWidth - 1, 0
        LineTo .hdc, 0, 0
        SetWindowRgn .hWnd, hRgn, False                    '>>Retune Original Shape To Button Without Cutting
        Select Case mButtonStyle
            Case Is = Visual                               '>> Rectangle >> Draw Visual Style.
                If MouseDown Then
                    .ForeColor = BDR_VISUAL
                    MoveToEx .hdc, .ScaleWidth - 1, 0, Lines
                    LineTo .hdc, 0, 0
                    LineTo .hdc, 0, .ScaleHeight - 1
                    .ForeColor = BDR_VISUAL1
                    MoveToEx .hdc, .ScaleWidth - 1, 1, Lines
                    LineTo .hdc, 1, 1
                    LineTo .hdc, 1, .ScaleHeight - 1
                Else
                    .ForeColor = BDR_VISUAL1
                    MoveToEx .hdc, .ScaleWidth - 2, 0, Lines
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight - 2
                    LineTo .hdc, 0, .ScaleHeight - 2
                    .ForeColor = BDR_VISUAL2
                    MoveToEx .hdc, .ScaleWidth - 1, 0, Lines
                    LineTo .hdc, 0, 0
                    LineTo .hdc, 0, .ScaleHeight - 1
                End If
            Case Is = Flat                                 '>> Rectangle >> Draw Flat Style.
                If MouseDown Then
                    .ForeColor = BDR_FLAT1
                    MoveToEx .hdc, .ScaleWidth - 1, 0, Lines
                    LineTo .hdc, 0, 0
                    LineTo .hdc, 0, .ScaleHeight - 1
                Else
                    .ForeColor = BDR_FLAT2
                    MoveToEx .hdc, .ScaleWidth - 1, 0, Lines
                    LineTo .hdc, 0, 0
                    LineTo .hdc, 0, .ScaleHeight - 1
                End If
            Case Is = OverFlat                             '>> Rectangle >> Draw OverFlat Style.
                If MouseDown Then
                    .ForeColor = BDR_FLAT1
                    MoveToEx .hdc, .ScaleWidth - 1, 0, Lines
                    LineTo .hdc, 0, 0
                    LineTo .hdc, 0, .ScaleHeight - 1
                ElseIf MouseMove Then
                    .ForeColor = BDR_FLAT2
                    MoveToEx .hdc, .ScaleWidth - 1, 0, Lines
                    LineTo .hdc, 0, 0
                    LineTo .hdc, 0, .ScaleHeight - 1
                End If
            Case Is = Java                                 '>> Rectangle >> Draw Java Style.
                If .Enabled Then
                    .ForeColor = BDR_JAVA1
                    MoveToEx .hdc, .ScaleWidth - 2, 1, Lines
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight - 2
                    LineTo .hdc, 2, .ScaleHeight - 2
                    .ForeColor = BDR_JAVA2
                    MoveToEx .hdc, .ScaleWidth - 1, 1, Lines
                    LineTo .hdc, 1, 1
                    LineTo .hdc, 1, .ScaleHeight - 1
                    LineTo .hdc, .ScaleWidth - 1, .ScaleHeight - 1
                    LineTo .hdc, .ScaleWidth - 1, 1
                End If
            Case Is = WinXp                                '>> Rectangle >> Draw WindowsXp Style
                If MouseDown Then
                    .ForeColor = BDR_PRESSED
                    MoveToEx .hdc, 2, .ScaleHeight - 3, Lines
                    LineTo .hdc, .ScaleWidth - 3, .ScaleHeight - 3
                    LineTo .hdc, .ScaleWidth - 3, 2
                ElseIf MouseMove Then
                    .ForeColor = BDR_GOLDXP_DARK
                    MoveToEx .hdc, .ScaleWidth - 2, .ScaleHeight - 2, Lines
                    LineTo .hdc, 0, .ScaleHeight - 2
                    .ForeColor = BDR_GOLDXP_NORMAL1
                    MoveToEx .hdc, 1, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight - 3
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight - 3
                    LineTo .hdc, .ScaleWidth - 2, 1
                    .ForeColor = BDR_GOLDXP_NORMAL2
                    MoveToEx .hdc, 2, 2, Lines
                    LineTo .hdc, 2, .ScaleHeight - 3
                    MoveToEx .hdc, .ScaleWidth - 3, .ScaleHeight - 4, Lines
                    LineTo .hdc, .ScaleWidth - 3, 2
                    .ForeColor = BDR_GOLDXP_LIGHT1
                    MoveToEx .hdc, 1, 1, Lines
                    LineTo .hdc, .ScaleWidth - 1, 1
                    .ForeColor = BDR_GOLDXP_LIGHT2
                    MoveToEx .hdc, 2, 2, Lines
                    LineTo .hdc, .ScaleWidth - 2, 2
                    '>> Rectangle >> Draw Xp FocusRect.
                ElseIf mButtonStyle = WinXp And mFocusRect And mFocused Then
                    .ForeColor = BDR_BLUEXP_DARK
                    MoveToEx .hdc, .ScaleWidth - 2, .ScaleHeight - 2, Lines
                    LineTo .hdc, 0, .ScaleHeight - 2
                    .ForeColor = BDR_BLUEXP_NORMAL1
                    MoveToEx .hdc, 1, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight - 3
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight - 3
                    LineTo .hdc, .ScaleWidth - 2, 1
                    .ForeColor = BDR_BLUEXP_NORMAL2
                    MoveToEx .hdc, 2, 2, Lines
                    LineTo .hdc, 2, .ScaleHeight - 3
                    MoveToEx .hdc, .ScaleWidth - 3, .ScaleHeight - 4, Lines
                    LineTo .hdc, .ScaleWidth - 3, 2
                    .ForeColor = BDR_BLUEXP_LIGHT1
                    MoveToEx .hdc, 1, 1, Lines
                    LineTo .hdc, .ScaleWidth - 1, 1
                    .ForeColor = BDR_BLUEXP_LIGHT2
                    MoveToEx .hdc, 2, 2, Lines
                    LineTo .hdc, .ScaleWidth - 2, 2
                End If
            Case Is = Vista    '>> Rectangle >> Draw Vista Style.
                If MouseDown Then
                    .ForeColor = BDR_VISTA2
                    MoveToEx .hdc, 1, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight - 2
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight - 2
                    LineTo .hdc, .ScaleWidth - 2, 1
                    LineTo .hdc, 1, 1
                Else
                    .ForeColor = BDR_VISTA1
                    MoveToEx .hdc, 1, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight - 2
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight - 2
                    LineTo .hdc, .ScaleWidth - 2, 1
                    LineTo .hdc, 1, 1
                    '>> Rectangle >> Draw Vista FocusRect.
                    If mButtonStyle = Vista And mFocusRect And mFocused Then
                        .ForeColor = BDR_FOCUSRECT_VISTA
                        MoveToEx .hdc, 1, 1, Lines
                        LineTo .hdc, 1, .ScaleHeight - 2
                        LineTo .hdc, .ScaleWidth - 2, .ScaleHeight - 2
                        LineTo .hdc, .ScaleWidth - 2, 1
                        LineTo .hdc, 1, 1
                    End If
                End If
        End Select
        '>> Rectangle >> Draw FocusRect.
        If Not mButtonStyle = Java And mFocusRect And mFocused Then
            If Not mButtonStyle = WinXp And mFocusRect And mFocused Then
                If Not mButtonStyle = Vista And mFocusRect And mFocused Then
                    .ForeColor = BDR_FOCUSRECT
                    MoveToEx .hdc, 4, 4, Lines
                    LineTo .hdc, 4, .ScaleHeight - 5
                    LineTo .hdc, .ScaleWidth - 5, .ScaleHeight - 5
                    LineTo .hdc, .ScaleWidth - 5, 4
                    LineTo .hdc, 4, 4
                End If
            End If
        End If
    End With
End Sub
Private Sub Redraw_RoundedRectangle()
    With UserControl
        '>> RoundedRectangle >> Make RoundedRectangle Shape.
        hRgn = CreateRoundRectRgn(0, 0, .ScaleWidth, .ScaleHeight, 15, 15)
        SetWindowRgn .hWnd, hRgn, True
        DeleteObject hRgn

        '>> RoundedRectangle >> Draw RoundedRectangle Shape.
        RoundRect hdc, 0, 0, .ScaleWidth - 1, .ScaleHeight - 1, 16, 16

        Select Case mButtonStyle
            Case Is = Visual                               '>> RoundedRectangle >> Draw Visual Style.
                If MouseDown Then
                    .ForeColor = BDR_VISUAL
                    MoveToEx .hdc, 10, 0, Lines
                    LineTo .hdc, .ScaleWidth - 8, 0
                    Arc .hdc, 17, 17, 0, 0, 10, 0, 0, 10
                    MoveToEx .hdc, 0, 10, Lines
                    LineTo .hdc, 0, .ScaleHeight - 10
                    Arc .hdc, 17, .ScaleHeight - 17, 0, .ScaleHeight - 1, -16, .ScaleHeight - 16, 9, .ScaleHeight
                    Arc .hdc, 16, .ScaleHeight - 16, 0, .ScaleHeight - 2, -16, .ScaleHeight - 16, 8, .ScaleHeight
                    .ForeColor = BDR_VISUAL1
                    MoveToEx .hdc, 10, 1, Lines
                    LineTo .hdc, .ScaleWidth - 8, 1
                    Arc .hdc, 17, 17, 1, 1, 10, 1, 1, 10
                    MoveToEx .hdc, 1, 10, Lines
                    LineTo .hdc, 1, .ScaleHeight - 10
                    Arc .hdc, 17, .ScaleHeight - 16, 1, .ScaleHeight - 2, -16, .ScaleHeight - 16, 9, .ScaleHeight - 1
                Else
                    .ForeColor = BDR_VISUAL1
                    RoundRect hdc, 0, 0, .ScaleWidth - 2, .ScaleHeight - 2, 15, 15
                    .ForeColor = BDR_VISUAL2
                    MoveToEx .hdc, 10, 0, Lines
                    LineTo .hdc, .ScaleWidth - 8, 0
                    Arc .hdc, 17, 17, 0, 0, 10, 0, 0, 10
                    MoveToEx .hdc, 0, 10, Lines
                    LineTo .hdc, 0, .ScaleHeight - 10
                    Arc .hdc, 17, .ScaleHeight - 17, 0, .ScaleHeight - 2, -16, .ScaleHeight - 16, 9, .ScaleHeight - 1
                    Arc .hdc, 17, .ScaleHeight - 17, 0, .ScaleHeight - 1, -16, .ScaleHeight - 16, 9, .ScaleHeight - 1
                End If
            Case Is = Flat                                 '>> RoundedRectangle >> Draw Flat Style.
                If MouseDown Then
                    .ForeColor = BDR_FLAT1
                    MoveToEx .hdc, 10, 0, Lines
                    LineTo .hdc, .ScaleWidth - 8, 0
                    Arc .hdc, 17, 17, 0, 0, 10, 0, 0, 10
                    MoveToEx .hdc, 0, 10, Lines
                    LineTo .hdc, 0, .ScaleHeight - 10
                    Arc .hdc, 17, .ScaleHeight - 17, 0, .ScaleHeight - 1, -16, .ScaleHeight - 16, 9, .ScaleHeight - 1
                Else
                    .ForeColor = BDR_FLAT2
                    MoveToEx .hdc, 10, 0, Lines
                    LineTo .hdc, .ScaleWidth - 8, 0
                    Arc .hdc, 17, 17, 0, 0, 10, 0, 0, 10
                    MoveToEx .hdc, 0, 10, Lines
                    LineTo .hdc, 0, .ScaleHeight - 10
                    Arc .hdc, 17, .ScaleHeight - 17, 0, .ScaleHeight - 1, -16, .ScaleHeight - 16, 9, .ScaleHeight - 1
                End If
            Case Is = OverFlat                             '>> RoundedRectangle >> Draw OverFlat Style.
                If MouseDown Then
                    .ForeColor = BDR_FLAT1
                    MoveToEx .hdc, 10, 0, Lines
                    LineTo .hdc, .ScaleWidth - 8, 0
                    Arc .hdc, 17, 17, 0, 0, 10, 0, 0, 10
                    MoveToEx .hdc, 0, 10, Lines
                    LineTo .hdc, 0, .ScaleHeight - 10
                    Arc .hdc, 17, .ScaleHeight - 17, 0, .ScaleHeight - 1, -16, .ScaleHeight - 16, 9, .ScaleHeight - 1
                ElseIf MouseMove Then
                    .ForeColor = BDR_FLAT2
                    MoveToEx .hdc, 10, 0, Lines
                    LineTo .hdc, .ScaleWidth - 8, 0
                    Arc .hdc, 17, 17, 0, 0, 10, 0, 0, 10
                    MoveToEx .hdc, 0, 10, Lines
                    LineTo .hdc, 0, .ScaleHeight - 10
                    Arc .hdc, 17, .ScaleHeight - 17, 0, .ScaleHeight - 1, -16, .ScaleHeight - 16, 9, .ScaleHeight - 1
                End If
            Case Is = Java                                 '>> RoundedRectangle >> Draw Java Style.
                If .Enabled Then
                    .ForeColor = BDR_JAVA1
                    RoundRect hdc, 0, 0, .ScaleWidth - 2, .ScaleHeight - 2, 16, 16
                    .ForeColor = BDR_JAVA2
                    RoundRect hdc, 1, 1, .ScaleWidth - 1, .ScaleHeight - 1, 16, 16
                End If
            Case Is = WinXp                                '>> RoundedRectangle >> Draw WindowsXp Style.
                If MouseDown Then
                    .ForeColor = BDR_PRESSED
                    Arc .hdc, .ScaleWidth - 17, .ScaleHeight - 17, .ScaleWidth - 3, .ScaleHeight - 3, .ScaleWidth - 10, .ScaleHeight - 3, .ScaleWidth - 2, .ScaleHeight - 10
                    MoveToEx .hdc, .ScaleWidth - 9, .ScaleHeight - 4, Lines
                    LineTo .hdc, 8, .ScaleHeight - 4
                    MoveToEx .hdc, .ScaleWidth - 4, 4, Lines
                    LineTo .hdc, .ScaleWidth - 4, .ScaleHeight - 9
                ElseIf MouseMove Then
                    .ForeColor = BDR_GOLDXP_DARK
                    Arc .hdc, 16, .ScaleHeight - 17, 1, .ScaleHeight - 2, -17, .ScaleHeight, 8, .ScaleHeight - 1
                    MoveToEx .hdc, .ScaleWidth - 8, .ScaleHeight - 3, Lines
                    LineTo .hdc, 8, .ScaleHeight - 3
                    Arc .hdc, .ScaleWidth - 17, .ScaleHeight - 17, .ScaleWidth - 2, .ScaleHeight - 2, .ScaleWidth - 10, .ScaleHeight - 2, .ScaleWidth - 1, .ScaleHeight - 10
                    .ForeColor = BDR_GOLDXP_NORMAL1
                    Arc .hdc, 17, .ScaleHeight - 18, 1, .ScaleHeight - 3, -18, .ScaleHeight, 10, .ScaleHeight - 1
                    MoveToEx .hdc, 1, 6, Lines
                    LineTo .hdc, 1, .ScaleHeight - 8
                    MoveToEx .hdc, .ScaleWidth - 8, .ScaleHeight - 4, Lines
                    LineTo .hdc, 8, .ScaleHeight - 4
                    Arc .hdc, .ScaleWidth - 17, .ScaleHeight - 17, .ScaleWidth - 3, .ScaleHeight - 3, .ScaleWidth - 10, .ScaleHeight - 2, .ScaleWidth - 1, .ScaleHeight - 10
                    MoveToEx .hdc, .ScaleWidth - 3, 6, Lines
                    LineTo .hdc, .ScaleWidth - 3, .ScaleHeight - 8
                    .ForeColor = BDR_GOLDXP_NORMAL2
                    MoveToEx .hdc, 2, 7, Lines
                    LineTo .hdc, 2, .ScaleHeight - 7
                    MoveToEx .hdc, .ScaleWidth - 4, 7, Lines
                    LineTo .hdc, .ScaleWidth - 4, .ScaleHeight - 7
                    Arc .hdc, 17, 17, 1, 1, 8, 0, 0, 8
                    Arc .hdc, .ScaleWidth - 17, 17, .ScaleWidth - 2, 1, .ScaleWidth - 1, 8, .ScaleWidth - 12, 1
                    Arc .hdc, .ScaleWidth - 17, 17, .ScaleWidth - 3, 2, .ScaleWidth - 1, 8, .ScaleWidth - 12, 1
                    Arc .hdc, 17, 17, 2, 2, 8, 0, 0, 8
                    .ForeColor = BDR_GOLDXP_LIGHT1
                    MoveToEx .hdc, 10, 1, Lines
                    LineTo .hdc, .ScaleWidth - 7, 1
                    .ForeColor = BDR_GOLDXP_LIGHT2
                    MoveToEx .hdc, 10, 2, Lines
                    LineTo .hdc, .ScaleWidth - 8, 2
                    '>> RoundedRectangle >> Draw Xp FocusRect.
                ElseIf mButtonStyle = WinXp And mFocusRect And mFocused Then
                    .ForeColor = BDR_BLUEXP_DARK
                    Arc .hdc, 16, .ScaleHeight - 17, 1, .ScaleHeight - 2, -17, .ScaleHeight, 8, .ScaleHeight - 1
                    MoveToEx .hdc, .ScaleWidth - 8, .ScaleHeight - 3, Lines
                    LineTo .hdc, 8, .ScaleHeight - 3
                    Arc .hdc, .ScaleWidth - 17, .ScaleHeight - 17, .ScaleWidth - 2, .ScaleHeight - 2, .ScaleWidth - 10, .ScaleHeight - 2, .ScaleWidth - 1, .ScaleHeight - 10
                    .ForeColor = BDR_BLUEXP_NORMAL1
                    Arc .hdc, 17, .ScaleHeight - 18, 1, .ScaleHeight - 3, -18, .ScaleHeight, 10, .ScaleHeight
                    MoveToEx .hdc, 1, 6, Lines
                    LineTo .hdc, 1, .ScaleHeight - 8
                    MoveToEx .hdc, .ScaleWidth - 8, .ScaleHeight - 4, Lines
                    LineTo .hdc, 8, .ScaleHeight - 4
                    Arc .hdc, .ScaleWidth - 17, .ScaleHeight - 17, .ScaleWidth - 3, .ScaleHeight - 3, .ScaleWidth - 10, .ScaleHeight - 2, .ScaleWidth - 1, .ScaleHeight - 10
                    MoveToEx .hdc, .ScaleWidth - 3, 6, Lines
                    LineTo .hdc, .ScaleWidth - 3, .ScaleHeight - 8
                    .ForeColor = BDR_BLUEXP_NORMAL2
                    MoveToEx .hdc, 2, 7, Lines
                    LineTo .hdc, 2, .ScaleHeight - 7
                    MoveToEx .hdc, .ScaleWidth - 4, 7, Lines
                    LineTo .hdc, .ScaleWidth - 4, .ScaleHeight - 7
                    Arc .hdc, 17, 17, 1, 1, 8, 0, 0, 8
                    Arc .hdc, .ScaleWidth - 17, 17, .ScaleWidth - 2, 1, .ScaleWidth - 1, 8, .ScaleWidth - 12, 1
                    Arc .hdc, .ScaleWidth - 17, 17, .ScaleWidth - 3, 2, .ScaleWidth - 1, 8, .ScaleWidth - 12, 1
                    Arc .hdc, 17, 17, 2, 2, 8, 0, 0, 8
                    .ForeColor = BDR_BLUEXP_LIGHT1
                    MoveToEx .hdc, 10, 1, Lines
                    LineTo .hdc, .ScaleWidth - 7, 1
                    .ForeColor = BDR_BLUEXP_LIGHT2
                    MoveToEx .hdc, 10, 2, Lines
                    LineTo .hdc, .ScaleWidth - 8, 2
                End If
            Case Is = Vista    '>> RoundedRectangle >> Draw Vista Style.
                If MouseDown Then
                    .ForeColor = BDR_VISTA2
                    RoundRect hdc, 1, 1, .ScaleWidth - 2, .ScaleHeight - 2, 14, 14
                Else
                    .ForeColor = BDR_VISTA1
                    RoundRect hdc, 1, 1, .ScaleWidth - 2, .ScaleHeight - 2, 14, 14
                    '>> RoundedRectangle >> Draw Vista FocusRect.
                    If mButtonStyle = Vista And mFocusRect And mFocused Then
                        .ForeColor = BDR_FOCUSRECT_VISTA
                        RoundRect hdc, 1, 1, .ScaleWidth - 2, .ScaleHeight - 2, 14, 14
                    End If
                End If
        End Select
        '>> RoundedRectangle >> Draw FocusRect.
        If Not mButtonStyle = Java And mFocusRect And mFocused Then
            If Not mButtonStyle = WinXp And mFocusRect And mFocused Then
                If Not mButtonStyle = Vista And mFocusRect And mFocused Then
                    .ForeColor = BDR_FOCUSRECT
                    RoundRect .hdc, 4, 4, .ScaleWidth - 5, .ScaleHeight - 5, 15, 15
                End If
            End If
        End If
    End With
End Sub
Private Sub Redraw_Round()
    With UserControl
        '>> Round >> Make Round Shape.
        'hRgn = CreateRoundRectRgn(0, 0, .ScaleWidth, .ScaleHeight, .ScaleWidth , .ScaleHeight )
        hRgn = CreateEllipticRgn(0, 0, .ScaleWidth, .ScaleHeight)
        SetWindowRgn .hWnd, hRgn, True
        DeleteObject hRgn

        '>> Round >> Draw Round Shape.
        RoundRect hdc, 1, 1, .ScaleWidth - 2, .ScaleHeight - 2, .ScaleWidth - 2, .ScaleHeight - 2

        Select Case mButtonStyle
            Case Is = Visual                               '>> Round >> Draw Visual Style.
                If MouseDown Then
                    .ForeColor = BDR_VISUAL
                    Arc .hdc, .ScaleWidth - 2, .ScaleHeight - 2, 1, 1, .ScaleWidth - 2, 1, 1, .ScaleHeight - 2
                    .ForeColor = BDR_VISUAL1
                    Arc .hdc, .ScaleWidth - 3, .ScaleHeight - 3, 2, 2, .ScaleWidth - 3, 2, 2, .ScaleHeight - 3
                Else
                    .ForeColor = BDR_VISUAL1
                    Arc .hdc, 1, 1, .ScaleWidth - 3, .ScaleHeight - 3, .ScaleWidth / 3, .ScaleHeight / 2, .ScaleWidth - 3, 1
                    .ForeColor = BDR_VISUAL2
                    Arc .hdc, .ScaleWidth - 2, .ScaleHeight - 2, 1, 1, .ScaleWidth - 2, 1, 1, .ScaleHeight - 2
                End If
            Case Is = Flat                                 '>> Round >> Draw Flat Style.
                If MouseDown Then
                    .ForeColor = BDR_FLAT1
                    Arc .hdc, .ScaleWidth - 2, .ScaleHeight - 2, 1, 1, .ScaleWidth - 2, 1, 1, .ScaleHeight - 2
                Else
                    .ForeColor = BDR_FLAT2
                    Arc .hdc, .ScaleWidth - 2, .ScaleHeight - 2, 1, 1, .ScaleWidth - 2, 1, 1, .ScaleHeight - 2
                End If
            Case Is = OverFlat                             '>> Round >> Draw OverFlat Style.
                If MouseDown Then
                    .ForeColor = BDR_FLAT1
                    Arc .hdc, .ScaleWidth - 2, .ScaleHeight - 2, 1, 1, .ScaleWidth - 2, 1, 1, .ScaleHeight - 2
                ElseIf MouseMove Then
                    .ForeColor = BDR_FLAT2
                    Arc .hdc, .ScaleWidth - 2, .ScaleHeight - 2, 1, 1, .ScaleWidth - 2, 1, 1, .ScaleHeight - 2
                End If
            Case Is = Java                                 '>> Round >> Draw Java Style.
                If .Enabled Then
                    .ForeColor = BDR_JAVA1
                    Arc .hdc, .ScaleWidth - 3, .ScaleHeight - 3, 2, 2, .ScaleWidth / 2, .ScaleHeight - 3, .ScaleWidth / 2, 3
                    .ForeColor = BDR_JAVA2
                    Arc .hdc, .ScaleWidth - 3, .ScaleHeight - 3, 2, 2, .ScaleWidth / 2, 2, .ScaleWidth / 2, .ScaleHeight - 2
                    Arc .hdc, .ScaleWidth - 2, .ScaleHeight - 2, 1, 1, .ScaleWidth / 2, .ScaleHeight - 2, .ScaleWidth / 2, 2
                End If
            Case Is = WinXp                                '>> Round >> Draw WindowsXp Style.
                If MouseDown Then
                    .ForeColor = BDR_PRESSED
                    Arc .hdc, .ScaleWidth - 4, .ScaleHeight - 4, 3, 3, .ScaleWidth / 2, .ScaleHeight - 2, .ScaleWidth / 2, 3
                ElseIf MouseMove Then
                    .ForeColor = BDR_GOLDXP_DARK
                    Arc .hdc, 2, 2, .ScaleWidth - 3, .ScaleHeight - 3, 2, .ScaleHeight - 3, .ScaleWidth - 3, .ScaleHeight - 3
                    .ForeColor = BDR_GOLDXP_NORMAL1
                    Arc .hdc, 2, 2, .ScaleWidth - 3, .ScaleHeight - 4, 3, 3, .ScaleWidth - 2, 4
                    .ForeColor = BDR_GOLDXP_NORMAL2
                    Arc .hdc, 3, 3, .ScaleWidth - 4, .ScaleHeight - 3, 2, 3, .ScaleWidth - 2, 3
                    .ForeColor = BDR_GOLDXP_LIGHT1
                    Arc .hdc, .ScaleWidth - 3, .ScaleHeight - 2, 2, 2, .ScaleWidth - 3, 3, 3, 3
                    .ForeColor = BDR_GOLDXP_LIGHT2
                    Arc .hdc, .ScaleWidth - 3, .ScaleHeight - 3, 3, 3, .ScaleWidth - 3, 4, 4, 4
                    '>> Round >> Draw Xp FocusRect.
                ElseIf mButtonStyle = WinXp And mFocusRect And mFocused Then
                    .ForeColor = BDR_BLUEXP_DARK
                    Arc .hdc, 2, 2, .ScaleWidth - 3, .ScaleHeight - 3, 2, .ScaleHeight - 3, .ScaleWidth - 3, .ScaleHeight - 3
                    .ForeColor = BDR_BLUEXP_NORMAL1
                    Arc .hdc, 2, 2, .ScaleWidth - 3, .ScaleHeight - 4, 3, 3, .ScaleWidth - 2, 4
                    .ForeColor = BDR_BLUEXP_NORMAL2
                    Arc .hdc, 3, 3, .ScaleWidth - 4, .ScaleHeight - 3, 2, 3, .ScaleWidth - 2, 3
                    .ForeColor = BDR_BLUEXP_LIGHT1
                    Arc .hdc, .ScaleWidth - 3, .ScaleHeight - 2, 2, 2, .ScaleWidth - 3, 3, 3, 3
                    .ForeColor = BDR_BLUEXP_LIGHT2
                    Arc .hdc, .ScaleWidth - 3, .ScaleHeight - 3, 3, 3, .ScaleWidth - 3, 4, 4, 4
                End If
            Case Is = Vista    '>> Round >> Draw Vista Style.
                If MouseDown Then
                    .ForeColor = BDR_VISTA2
                    RoundRect hdc, 2, 2, .ScaleWidth - 3, .ScaleHeight - 3, .ScaleWidth - 3, .ScaleHeight - 3
                Else
                    .ForeColor = BDR_VISTA1
                    RoundRect hdc, 2, 2, .ScaleWidth - 3, .ScaleHeight - 3, .ScaleWidth - 3, .ScaleHeight - 3
                    '>> Round >> Draw Vista FocusRect.
                    If mButtonStyle = Vista And mFocusRect And mFocused Then
                        .ForeColor = BDR_FOCUSRECT_VISTA
                        RoundRect hdc, 2, 2, .ScaleWidth - 3, .ScaleHeight - 3, .ScaleWidth - 3, .ScaleHeight - 3
                    End If
                End If
        End Select
        '>> Round >> Draw FocusRect.
        If Not mButtonStyle = Java And mFocusRect And mFocused Then
            If Not mButtonStyle = WinXp And mFocusRect And mFocused Then
                If Not mButtonStyle = Vista And mFocusRect And mFocused Then
                    .ForeColor = BDR_FOCUSRECT
                    RoundRect hdc, 4, 4, .ScaleWidth - 5, .ScaleHeight - 5, .ScaleWidth - 5, .ScaleHeight - 5
                End If
            End If
        End If
    End With
End Sub
Private Sub Redraw_Diamond()
    With UserControl
        '>> Diamond >> Make Diamond Shape.
        P(0).X = .ScaleWidth: P(0).Y = .ScaleHeight / 2
        P(1).X = .ScaleWidth / 2: P(1).Y = 0
        P(2).X = 0: P(2).Y = .ScaleHeight / 2
        P(3).X = .ScaleWidth / 2: P(3).Y = .ScaleHeight
        hRgn = CreatePolygonRgn(P(0), &H4, WINDING)
        SetWindowRgn .hWnd, hRgn, True
        DeleteObject hRgn

        '>> Diamond >> Draw Diamond Shape.
        MoveToEx .hdc, 0, .ScaleHeight / 2, Lines
        LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 1
        LineTo .hdc, .ScaleWidth - 1, .ScaleHeight / 2
        LineTo .hdc, .ScaleWidth / 2, 0
        LineTo .hdc, 0, .ScaleHeight / 2
        If Not mButtonStyleColors = Transparent Then
            MoveToEx .hdc, .ScaleWidth / 2, 1, Lines
            LineTo .hdc, .ScaleWidth / 2, 0
        End If
        Select Case mButtonStyle
            Case Is = Visual                               '>> Diamond >> Draw Visual Style.
                If MouseDown Then
                    .ForeColor = BDR_VISUAL
                    MoveToEx .hdc, .ScaleWidth / 2, 0, Lines
                    LineTo .hdc, 0, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 1
                    .ForeColor = BDR_VISUAL1
                    MoveToEx .hdc, .ScaleWidth / 2, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 2
                Else
                    .ForeColor = BDR_VISUAL1
                    MoveToEx .hdc, .ScaleWidth / 2, .ScaleHeight - 2, Lines
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, 1
                    .ForeColor = BDR_VISUAL2
                    MoveToEx .hdc, .ScaleWidth / 2, 0, Lines
                    LineTo .hdc, 0, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 1
                End If
            Case Is = Flat                                 '>> Diamond >> Draw Flat Style.
                If MouseDown Then
                    .ForeColor = BDR_FLAT1
                    MoveToEx .hdc, .ScaleWidth / 2, 0, Lines
                    LineTo .hdc, 0, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 1
                Else
                    .ForeColor = BDR_FLAT2
                    MoveToEx .hdc, .ScaleWidth / 2, 0, Lines
                    LineTo .hdc, 0, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 1
                End If
            Case Is = OverFlat                             '>> Diamond >> Draw OverFlat Style.
                If MouseDown Then
                    .ForeColor = BDR_FLAT1
                    MoveToEx .hdc, .ScaleWidth / 2, 0, Lines
                    LineTo .hdc, 0, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 1
                ElseIf MouseMove Then
                    .ForeColor = BDR_FLAT2
                    MoveToEx .hdc, .ScaleWidth / 2, 0, Lines
                    LineTo .hdc, 0, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 1
                End If
            Case Is = Java                                 '>> Diamond >> Draw Java Style.
                If .Enabled Then
                    .ForeColor = BDR_JAVA1
                    MoveToEx .hdc, .ScaleWidth / 2, 1, Lines
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 2
                    .ForeColor = BDR_JAVA2
                    MoveToEx .hdc, .ScaleWidth / 2, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 2
                    MoveToEx .hdc, .ScaleWidth / 2, 0, Lines
                    LineTo .hdc, .ScaleWidth - 1, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 1
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 1
                End If
            Case Is = WinXp                                '>> Diamond >> Draw WindowsXp Style.
                If MouseDown Then
                    .ForeColor = BDR_PRESSED
                    MoveToEx .hdc, .ScaleWidth / 2, .ScaleHeight - 4, Lines
                    LineTo .hdc, .ScaleWidth - 4, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, 3
                    SetPixel .hdc, .ScaleWidth / 2, 1, vbBlack
                ElseIf MouseMove Then
                    .ForeColor = BDR_GOLDXP_DARK
                    MoveToEx .hdc, .ScaleWidth / 2, .ScaleHeight - 2, Lines
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight / 2
                    .ForeColor = BDR_GOLDXP_NORMAL1
                    MoveToEx .hdc, .ScaleWidth / 2, .ScaleHeight - 3, Lines
                    LineTo .hdc, .ScaleWidth - 3, .ScaleHeight / 2
                    MoveToEx .hdc, 1, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 2
                    MoveToEx .hdc, .ScaleWidth - 2, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, 1
                    .ForeColor = BDR_GOLDXP_NORMAL2
                    MoveToEx .hdc, 2, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 3
                    MoveToEx .hdc, .ScaleWidth - 3, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, 2
                    .ForeColor = BDR_GOLDXP_LIGHT1
                    MoveToEx .hdc, .ScaleWidth / 2, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight / 2
                    .ForeColor = BDR_GOLDXP_LIGHT2
                    MoveToEx .hdc, .ScaleWidth / 2, 2, Lines
                    LineTo .hdc, 2, .ScaleHeight / 2
                    SetPixel .hdc, .ScaleWidth / 2, 1, vbBlack
                    '>> Diamond >> Draw Xp FocusRect.
                ElseIf mButtonStyle = WinXp And mFocusRect And mFocused Then
                    .ForeColor = BDR_BLUEXP_DARK
                    MoveToEx .hdc, .ScaleWidth / 2, .ScaleHeight - 2, Lines
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight / 2
                    .ForeColor = BDR_BLUEXP_NORMAL1
                    MoveToEx .hdc, .ScaleWidth / 2, .ScaleHeight - 3, Lines
                    LineTo .hdc, .ScaleWidth - 3, .ScaleHeight / 2
                    MoveToEx .hdc, 1, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 2
                    MoveToEx .hdc, .ScaleWidth - 2, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, 1
                    .ForeColor = BDR_BLUEXP_NORMAL2
                    MoveToEx .hdc, 2, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 3
                    MoveToEx .hdc, .ScaleWidth - 3, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, 2
                    .ForeColor = BDR_BLUEXP_LIGHT1
                    MoveToEx .hdc, .ScaleWidth / 2, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight / 2
                    .ForeColor = BDR_BLUEXP_LIGHT2
                    MoveToEx .hdc, .ScaleWidth / 2, 2, Lines
                    LineTo .hdc, 2, .ScaleHeight / 2
                    SetPixel .hdc, .ScaleWidth / 2, 1, vbBlack
                End If
            Case Is = Vista    '>> Diamond >> Draw Vista Style.
                If MouseDown Then
                    .ForeColor = BDR_VISTA2
                    MoveToEx .hdc, 1, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 2
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, 1
                    LineTo .hdc, 1, .ScaleHeight / 2
                Else
                    .ForeColor = BDR_VISTA1
                    MoveToEx .hdc, 1, .ScaleHeight / 2, Lines
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 2
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, 1
                    LineTo .hdc, 1, .ScaleHeight / 2
                    '>> Diamond >> Draw Vista FocusRect.
                    If mButtonStyle = Vista And mFocusRect And mFocused Then
                        .ForeColor = BDR_FOCUSRECT_VISTA
                        MoveToEx .hdc, 1, .ScaleHeight / 2, Lines
                        LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 2
                        LineTo .hdc, .ScaleWidth - 2, .ScaleHeight / 2
                        LineTo .hdc, .ScaleWidth / 2, 1
                        LineTo .hdc, 1, .ScaleHeight / 2
                    End If
                End If
        End Select
        '>> Diamond >> Draw FocusRect.
        If Not mButtonStyle = Java And mFocusRect And mFocused Then
            If Not mButtonStyle = WinXp And mFocusRect And mFocused Then
                If Not mButtonStyle = Vista And mFocusRect And mFocused Then
                    .ForeColor = BDR_FOCUSRECT
                    PL(0).X = .ScaleWidth - 6: PL(0).Y = .ScaleHeight / 2
                    PL(1).X = .ScaleWidth / 2: PL(1).Y = 5
                    PL(2).X = 5: PL(2).Y = .ScaleHeight / 2
                    PL(3).X = .ScaleWidth / 2: PL(3).Y = .ScaleHeight - 6
                    Polygon .hdc, PL(0), &H4
                    '>> Return FocusRect For Good Show.
                    For Fo.X = 2 To .ScaleWidth - 2 Step 1
                        For Fo.Y = 1 To .ScaleHeight - 1 Step 2
                            If GetPixel(.hdc, Fo.X, Fo.Y) = .ForeColor Then SetPixel .hdc, Fo.X, Fo.Y, vbBlack
                        Next Fo.Y
                    Next Fo.X
                End If
            End If
        End If
    End With
End Sub
Private Sub Redraw_Top_Triangle()
    With UserControl
        '>> Top_Triangle >> Make Top_Triangle Shape.
        P(0).X = 0: P(0).Y = .ScaleHeight
        P(1).X = .ScaleWidth / 2: P(1).Y = 0
        P(2).X = .ScaleWidth: P(2).Y = .ScaleHeight
        hRgn = CreatePolygonRgn(P(0), &H3, WINDING)
        SetWindowRgn .hWnd, hRgn, True
        DeleteObject hRgn

        '>> Top_Triangle >> Draw Top_Triangle Shape.
        MoveToEx .hdc, .ScaleWidth / 2, 1, Lines
        LineTo .hdc, 1, .ScaleHeight - 1
        LineTo .hdc, .ScaleWidth - 2, .ScaleHeight - 1
        LineTo .hdc, .ScaleWidth / 2, 1

        Select Case mButtonStyle
            Case Is = Visual                               '>> Top_Triangle >> Draw Visual Style.
                If MouseDown Then
                    .ForeColor = BDR_VISUAL
                    MoveToEx .hdc, .ScaleWidth / 2, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight - 1
                    .ForeColor = BDR_VISUAL1
                    MoveToEx .hdc, .ScaleWidth / 2, 3, Lines
                    LineTo .hdc, 3, .ScaleHeight - 3
                Else
                    .ForeColor = BDR_VISUAL1
                    MoveToEx .hdc, 1, .ScaleHeight - 2, Lines
                    LineTo .hdc, .ScaleWidth - 3, .ScaleHeight - 2
                    LineTo .hdc, .ScaleWidth / 2, 3
                    .ForeColor = BDR_VISUAL2
                    MoveToEx .hdc, .ScaleWidth / 2, 2, Lines
                    LineTo .hdc, 1, .ScaleHeight - 1
                End If
            Case Is = Flat                                 '>> Top_Triangle >> Draw Flat Style.
                If MouseDown Then
                    .ForeColor = BDR_FLAT1
                    MoveToEx .hdc, .ScaleWidth / 2, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight - 1
                Else
                    .ForeColor = BDR_FLAT2
                    MoveToEx .hdc, .ScaleWidth / 2, 2, Lines
                    LineTo .hdc, 1, .ScaleHeight - 1
                End If
            Case Is = OverFlat                             '>> Top_Triangle >> Draw OverFlat Style.
                If MouseDown Then
                    .ForeColor = BDR_FLAT1
                    MoveToEx .hdc, .ScaleWidth / 2, 1, Lines
                    LineTo .hdc, 1, .ScaleHeight - 1
                ElseIf MouseMove Then
                    .ForeColor = BDR_FLAT2
                    MoveToEx .hdc, .ScaleWidth / 2, 2, Lines
                    LineTo .hdc, 1, .ScaleHeight - 1
                End If
            Case Is = Java                                 '>> Top_Triangle >> Draw Java Style.
                If .Enabled Then
                    .ForeColor = BDR_JAVA1
                    MoveToEx .hdc, 1, .ScaleHeight - 2, Lines
                    LineTo .hdc, .ScaleWidth - 3, .ScaleHeight - 2
                    LineTo .hdc, .ScaleWidth / 2, 3
                    .ForeColor = BDR_JAVA2
                    MoveToEx .hdc, .ScaleWidth / 2, 3, Lines
                    LineTo .hdc, 2, .ScaleHeight - 1
                    MoveToEx .hdc, 2, .ScaleHeight - 1, Lines
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight = Flat                                 '>> Diamond >> DcaleHeight = Flat dth - 3, .ScaleHeight - 3, 2, 2, .ScaleWidth - 3, 2, 2, .ScaleHeightidth - 3, 2, 2, .ScaleHeightidth - 3, 2, 2, .ScaleHeightidth - 3, 2, 2, 2, .Sca           End If
                End      MoveToEx .hdc, .ScaleWidth th - 3, .ScaleHeight - 2
                    LineTo .hdc, .ScaleWidth / 2, 3
                    .ForeColor = BDR_JAVA2
                    MoveToEx .hdc,     .ForeColor = BDR_JAVA2
                    MoveToEx .hdc,     .ForeColor = BDR_JAVA2
                     '>> Top_Trianangle               VetP                  .ForeColor = BDR_FLAT2
                    MoveToEx .hdc, .ScaleWidth / 2, 0, Lines
                    LineTo .hdc, 0, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 1
                End If
        C  MoveHeight / 2
        P(1).X = .ScaleP               o .hdc, 1, .ScaleHei   MoveToEx .hdc    LineTo .hdc, .ineTo .hdc, .ineTohA PL(Y                                '>>                 MoveToEx .hdc, .ScaleWidth / 2, .ScaleHeight - 2, Dale   '>>                 MoveToEx .hdc, .ScaleWveToEx .hdc            MoveToEx .hdc, .ScaleWidth / 2, 0, Lines
                    LineTo .hdc, 0, .Scale5caleHeight -Ex .eTo .hdc, .ineTohA PL(Y   iGFt - 1
                El     Arc .hdc, .Scale/aineTohA PL( Case mButtonStyleNeToh, Lines
         8p Lines
       9dmM   8p Lines
  dc, .ineTohA PL(Y   iGFt - 1
                El     Arc .hdc, .S     xht - 3
                    '>> Round >> Draw Vista FocusRleH001ght / 2
        P(1).X = .ScaleP               o          oa    Y       P(1Dale   '>>            >> Top_Triangle >> Draw OverFlat Style.
                If MouseDo    1p  '>>            >> Top_Triooa     = .ScaleP  oOoa     = .ScaleP  oOoa     = caleWidth / 2, .ScaleHeToh, Lines
     .X = 0idth / 2, 3
     = .eeee = Java       O     .X = 0idth /  - 2, .S oleHeTo2, .S oleHeTo2, .S oleHeTo2, .S oleHeTo2, .S FeHeToh, LX = 0idth    = caleWidth / 2      MveTo .hdc, .ScaleWi.
                If MouseDo    nd nes
                    LineTo .hdc, 3, .ScaleHeight - 3
                Else
                    I8Y = .Scal1ght /va                                                                                                                                     3used Then           .ScaleP  oOoa     = caleWidth / 2, .ScaleHeToh, Lines
     .X = 0idtdth / 2, 3
            BO          3used Then          = .ScaleP 3
    Scalew
                    LineTo .hdc, .ScaleWidth - 2      eTohA PL(Y               o .hdc, .ScaleWidth - dth - 2  4al1ght /va                                                                    d                                            d                                            d                                            d                             d
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight /CH           .ForeColor HeTo2, LineTo .hdc, 3, .ScaleHeight - 3
                Elssssssssssssss      LineTo .hdc, .ScaleWidth / 2, 3
                    .ForeColor = BDR_JAVA2
                    MoveToEx .hdc,     .ForeColor = BDR_JAVA2
                    MoveToEx .hdc,     .ForeColor = BDR_JA)leHeTo2       '>> Top_T                  d                                            d    rOolor =np
             2, 3oreCooEx .hdc, 10, 0, Lines
                  .ForeColor = BDR_JAVA2
                    MoveToEx .hdc, .     BO = BDR_JR_BLUEX             LaScal1ght /va      leHeight / 2
 EX             YYYYYYYYYYYYYYYleWidth - 2      eTohA PL YYYYYYYYYYY

        '>> Top_o.Y = 1 T    Y
AsFFFFFFFFFFFFFFFTop_o.Y = 1 TL YYYYYYYYYYY

        '>> Top_o.Y = 1 T    Y
AsFFFFFFFFFFFFFFFTopop_o.Y = 1 TL YYYY, .ScaleWidth - 3, .S Y
empop_o.Y = 1 TL YYYY, .ScaleWidth - 3,lYYYYY    eTohA PL YYYYYn       YYYYYYYYYYYYYYYleWidth - 2 dc, .ScaleWidth / 2, 2, Lines
         FneTo        YYYYn       YYYYYYYYYYYYYYYleWidth - 2 dc, .ScaleWidth / 2, 2, Lines
         FneTo        YYYYn       YYYYYYYYYYYYYYYleWidth - 2 dc, .ScaleWidth / 2, 2, Lines
         FneTo        YYYYn       YYYYYYYYYYYYYYYleWidth - 2 dc, .ScaleWidth / 2, 2, Lines
    k                   LineTo 1 3
                Else
                    .ForeColor = BDR_VISUAL1
            3
                Else
                    .ForeColor = BDR_VISUAL1
            3
        3
     Else
           lor =0So                   3
        3
     Else
           lor =0So           FneTo        YYYYn       YYYYYYYYYYYYYYYleWidth - 2 dc, .ScaleWidYeWidth - 2 dc, .ScCuseMocaleWidth - 4, .ScaleHeior =0So           FneTo oEx .hdc,      ci10, 0, Lines
          dth / 2, .ScaleHeight - 2, Lines
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight / 2
                    .ForeColorh, LX = 0idth                            ycaleHes
          4, .S  3
 _3n1BDR_VISUAL2
  YYYYYlse
           lor =0So           Ff
   lor =0SoD3 .hdc, 17, 17, 2, 2, 8, 0, 0, 8
                    .ForeColor = BDR_BLUEXP_LIGHT1
                    MoveToEx .hdc, 10, 1, Lines
                    LineTo .hdc, .ScaleWidth - 7, 1
                    .ForeCole()
        )ht
        hRgn = CreatePolygonR  .ForeC                         '>> Top_Triangle >> Draw Flat Style.
                I - 3
                Else
                    .ForeColor = BDR_VISUAL1
                    MoveToEx .hdc, 1, .ScaleHA          lor =0So        .hdc, 1, .ScaleHUEX.hdc, 10, 1, Lines
      THT1
                    MoveToEx .hdc, 10, 1, Lines
       es
      THT1
                T, 10, 1, Lines
       es
      THT1
                T, 10, 1, Lines
       es
      THT1
                                             i        .oYYYYYYYY    iR = caleWidth / 2            sn     tVISUA
      THT1
     S.ar  i        .oYYYYopight / 2
                    LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 1
     .D       LineTo .hdc, .ScaleWidth /c, .Height - 2

        Select CaseLrc .1
            1
                    .ForeCole()
                     Height /             .ForeColo        3c, 1, .ScaleHeight - 1
                End IfineTo .hdc, .Sca          Rdth / 2, .ScaleHeight - 2, Lines
                    LineTo .hdc, .ScaleWidth - 2, .ScaleHeight / 2
       Yopight / 2
                         t / dth - 2, .ScaleHeight /CH           .ForeColor HeTo2, LineTo .hdc, 3, .ScaleHeight - 3
                Elssssssssssssss      LineTo .hdc, .t -eight - Height - 3
                Elssssssssssssss      LineTo .hdc, .t -eight - Height - 3
                ElssssssssssssssmreColor YYYY, .          Case Is = OverFlat                             '>oreC    LineTo .hdc, .t -eigveToEx .hdc, 1, .ScaleHA        YYYYn      He.ForR_BLUEXP_ 2, .ScaleHIE10, 1, Lines
      THT1
     c, 1, .ScaleHeightOndRect hdc, 2, 2,hdc, .ScaleWidth /c, .HealeWidth /c, .Hea 1, .          th /c, .HealeWidth /c, .Hea 1     LineTo .hdc, .t -eight - Hei2o .hdc,aleWidth /c, .Hea 1     LineTo .hdc, .t -eight - Hei2o .hdc,aleWidth /c, .Hea 1     LineTo .hdc, .t -eight - Hei2o .hdc,aleWidth /c, .Hea 1     LineTo .hdc, .t -eight - Hei2o .hdc,aleWidth /c, .Hea 1     LineT CaseLrc .1
            1
                    .F                  rc .1
            1
                    .F         eTohA PL                     ycaleHes
          4, .S  3
 _3n1BDR_VISUAL2
  YYYYYlse
           lor =0So                  /va     YYlse
           lor =0So                  /va(Bd m        lor =0So  .hdc, .t -eight - Hei2o .hdc,, 2, Lines
    k         ines
 mond >> Draw Visn(1).X = .ScaleP               o .hdc, 1, .ScaleHei   MoveToEx .hdc    LineTo Lines
    k         ines
 mond >> Draw Visn(1).X = .ScaleP         i   MoveERs
 mond >> Draw Visn(1).X = .ScTo .hdc, .ScaleWidth - 3, .ScaolcaleHeight - 1
        P(1Dale  (ERs
 mond >> DrawForeC                         '>> Topht - 3
              DineTo .hdc, .ScaleWidth / 2, LineTo .hdc, 3,s ,hdc, .ScaleWidth               o .hdc, 1, .ScalealeHeigdc, 1, .ScaleHei   Mov1DineTo .hdc, .Sca  k                 3Feight - Hei2o .hdc,, 2, Lines
    k         ines
 mond >> Draw Visn(1).X = .ScaleP          p    .F         eTohA PL                     ycow2   YYYYC   e              oiangle >> Make Top_Triangle Shape.
    hRgn =   th /c, .Heahdc,, 2, Lines
    k         ines
 mond >> Draw Vc    LineTo Lines
    k   aines
    k   aines
   l  Line       I - 3
                Else
             1eight - 2  oiangle >> Make Top_T mButtonStTLidth=caleWidth - 10, .ScaleHeight - 2, .ScaleWidth -
                     Height /             .ForeColo        3c, 1, .S0         lor =0So()
                     Height /             DineTo .hdc, .Scaop_T mButtonSt YYYYn      He.Fx&onSt
                    .F         eTohA PL                     ycaleHes
          4, .S  3
 _3n1BDR_VISUAL2
  YYYY           Aies
 c,aleWi               .ForeColor = BDR_VISUAL1
                    MoveToEx .hdc, 1, .ScaleHeight - 2, Lines
                    LineTo .hdc, .ScaleWidth - 3, .ScaleHeight - 2
                    LineTo .hdc, .ScaleWidth / 2, 3
                    .ForeColor = xLUEX               Rdth / 2, .ScaleHeight - 2, y.hdc, 106idth - dth - 2  4al1ght /va                     2, .ScaleHeight - 2, y.hdineTo .h     '>> Diamond >> Dr6ScaleWidth - 4, .ScaleHeight - 3, 2, 3, .ScaleWidth - 2, 3
                    .ForeColor = BDR_GOLDXP_LIGHT1
                    Arc .hdc, .ScaleWidth - 3, .ScaleHeight - 2, 2, 2, .ScaleWidth - 3, 3, 3, 3
                    .ForeColor = BDR_GOLDXP_LIGHT5- 3, 3, 3,ei- 2, 1, 1, .ScaleHeight - 2
                End If
 (    .ForeColor = BDR_VISUAL1
                    MoveToEx .hdc, 1, .Sca >>        .ForeColor = BDR_GOLDXP_NORMAL1
                    Arc .hdc, 2, 2, .ScaleWidth - 3, .ScaleHeight - 4, 3, 3, .ScaleWidth - 2, 4
                    .ForeColor = BDR_GOLDXP_NORMAL2
                    Arc .hdc, 3, 3, .ScaleWidth - 4, .ScaleHeight - e 2, .ScaleWidt       /FiRMALleWidt       /FiRMALleWidt       /FiRMALleWi11      /FiRMALleWidgh  - 1, Lines
                    LineTo .hdc, .ScaleWidth - 2, .Sca(LFcaleHeight / 2
        LineTo .hdc, .ScaleWidth / 2, 0
        LineTo .hdc, 0, .ScaleHeight / 2
     70dEeight_GOLDXPoight - 1
        LineTo .hdc, .ScaleWidth / 2, 1

        Select Case mButtonStyle
            Case Is = V        LiCs0
     nbLDX.hdc,2     Li      Cat - 2, Lines
   n_T mButtonStTLidth=caler<              LineTo .hdc, .SWidgh  - e- 2, 1, 1, .ScaleHeigh
          Lid        w Visual Style.
                If MouseDown Then
                    .ForeC.ForeColor = BDR_VISUAL1
                    MoveToEx .hdc, 1, .SIf     P(1Dale  (ERs
r     MoveToEx .hdc, 1, .SIf     P(1Dale  (ERs
r
          Lic,, 2,   - eWidth - 2, 3
                    .ForeColor = BDR_GOLDXP_LIGHT1
                h - 2, .Sca(LFcaleHeight / 2
        LineTo .hdc, .SXP_LIGHT1
              2, 2, 2oA     YYy9- 4, .ScaleHeight - 4, 3ies
 c,aleWi      Be Is = V        LiCs0
     ULleWi11      /FiRMALleWidgh  - 1, Lines
                    LineTo .hdc,Sca(LFcaleHe 2, .Scale,aleH   LineTo ..Sc.HealeWidth /c2, .    Elssssssssssssss      LineTo .hdc, .ScaleWidth / 2, 3
                    .ForeColor =  End      MoveToExPExPExPExPExPExPExPExPExPExPExPExPExPxPExPolor = BDR_GOLD                .ForeColor = BDR_GOLDXP_LIGHT1
                h - 2, .Sca(LFcaleHeight / 2
        LineTo .hdc, .SXP_LIGHT1
              2, 2, 2oA     YYy9- 4, .ScaleHeight - 4, 3ies
 c,aleWi      Be Is = V        LiCs0
     ULleWi11      /FiRMALleWid           .ForeColor = BDR_GOLDHeight -1&2, 3
                    .ForeColor = BDR_GOLDXP_LIGHT1
            CPSc.Holo_GOLDXP_LIGHT1
   , 0, 8FBi .h: lLD    hdc, .ScaleWidth / 2, 3
                    .ForeColor =0ForeColo
              2,OBLineTo .hdc, .ScaleWidth - 2, .ScaleHeight /CH           .Fore  2,OBLineTo .hdc, .Sci    /CH      Bidth - 2, .ScaleHeight /CH           .For     eight /CH          Flat        , .ScaleHeight - 2, .........................................................................Flato .hdUA
   .t -eight - Height - 3
 ............2,OB .SIf     P(1D_GOLD                .ForeColor = BDR_GOLDXP_LIGHT1
                h - 2, .Sca(LFcaleHeight / 2
     -or yH                            .ForeColor = BDR_GOLDXP_LIGHT1
      Bidth - 2, .ScaleHeight /CH           .For     eight /CH          Flat        , .ScaleHeight - 2, .........................................................................Flato .hdUA
   .t -eight - H= BDR_JAht - B                   LineT'..............., 2oA     YeColor = BDR_GOLDXP_LIGHT1
      BidA2JAVA2
         oreColor = BDR_VISUAL2
                    Mo
      BidA2JAVA2
         o      x, .ScalWi11                  If MouseDowcalD.................................Flato .hdUA
   .t -eight - H= BDR_JAht - B                   LineT'..............., 2oA     YeColor = BDR_GOLDXP_LIGHT1
      BidA2JAVA2
       ....., 2oA     YeColorP_LIGHT1       If MouseDown Then
                    .ForeColor = BDR_FLAT1
                    MoveToEx .hdc, .ScaleWidth / 2, 0, Lines
                    LineTo .hdc, 0, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,h - 2,, Linesolor = BDR_G> Top_Triangle >>9>9>9>9>9>9>9>9>9>9>9>9>9>9>9>9>9>9>9>9>9>9>9>9,,,,,,,,,,,,,,,,,,9dmM   8p Lines
  dc,  .ForeColor = BDR_FLAT2
                    Movee
                    LineTo .hdc, 0, .ScaleHeight / 2
                    LineTo .hdc, .ScaleWidth / 2,,,,,,,,,,,,,,,,,,,,,,,,,GOLDXP_LIGHT1
      BidA2JAVA2
         oreCo,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,                  6C                  0olor = BDR_GOLDXP_LIGHT1
                h - 2, .Sca(LFcaleHeight / 2
     -or yH               .ight  Arc .hdc, .ScaleWidth - 2, .ScaleHeight - 2, 1, 1, .ScaleWidth / 2, .ScaleHeight - 2, .ScaleWidth / 2, 2
  LDXP_LIGHT1
      BidA2JAVA2
      LineTo .hdc, .ScaleWidth / 2,,,,,IGHTlgo .hdc, 0, .ScaleHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeiScale.ForeColor = BDR_JAVA2iScale.ForeColor = BDR_J, 0, Linesf o yle.
                I - 3
          leHeight - 5, .ScaleWidth - 5, .ScalenyCor =0ForeColo
             5, .Sca>9>9>9>9>9>9>ghScaleHeighScalolo
             5, .S2, idt       /FiRMALleWi11      /FiRMALleWidgh  - 1, Lines
  eCole()
               MALleWi11      /FiRMALleWidgh  - 1, Lines
  eCole()
               MALleWi11      /FiRMA.ScaleHec, 1B      Elssssss     -or yH                            .ForeColor = BDR_GOLDXP_LIGHT1
      Bidth - 2, .ScaleHeight /CH           .For     eight /CH    ., 2cBss
                    LineTo7 /FiRMALleWidgh  - 1, Lines
  eCoTy>> Diamond >> Dr6ScaleWidth - 4, .ScaleHeight - 3, 2, 3, .ScaleWidth - 2, 3
                    .ForeColor = BDR_GOLDXP_LIGHT1
                    Arc .hdc, .ScaleWidth - 3, .ScaleHeight - 2,     Bidth - 2, .ScaleHeight /CH           .For     eight /CH    ., 2cBss
                    Lin  ElsVhMALleWidgh  - 1, Lines
  eCole()
               MALleWi11      /F         dBh / 2, 0, Lines
                    LineTo .hdc, 0, .Scale5caleHeight -Ex .eTo .hdc, .ineTohA PL(   eu, .Scale5caleHeic, .ineT        Linedth / 2, .ScohA Alo
eTo .hdc, .inealeHeighScaleHeighScaleHeighScaleHeighScaleHeighScaleHeigleHeic, .ineT        Linedth / 2, .ScohA Alo
eTo .hdc, .inealeHeigholor = BDR_      Li.ForeColor = BDR_GOLDXP_LIGHT1
                    Arc .hdcForeColor = BDR_J, 0, L              LineTo .hdc, 0, .Scale5caleHeight -Ex .eTo .hdc, .ineTohA PL(,,,,,ynht - 2
  (             MoeHeight -E2_JAVAeTo .hdc      idth - 2, .ScaleHeight /CH           .For     eight /CH    ., 2cBss
                    Lin  ElsVh    V             MALleWi11      /F         dBh / 2, 0, Lines
      V   MoeHeight -E2_JAVAeTo .hdc      idth - 2, .ScaleHeight /CH           .For   aleWid3, 2,        .For   aleWid3, 2,        .For   aleWid3, 2,        .For Wi11      /F          aleoA     aleHht /CH    .,ight - 2  o, .ScaleHeight - 2,     Bidth - 2, .ScaleHeightht -E2_JAVAeTo .hdc      idth - 2, .ScaleHeight /CH           idth - 2, .ScaleHeighteightht -E2_JAVAeTo .hdc      idth - 2, .ScaleHeight /CH           idth - 2, .ScaleHeighteightht -E2_JAVAeTo .hdc      idth - 2, .ScaleHeight /CH           idth - 2, .ScaleHeighteightht -E2_JAVAeTo .hdc      idth - 2, .ScaleHeight /CH           idth - 2, .ScE .Sc         idth - 2, .Scal1_JAVAeTo .hdc      idth - 2, .ScaleHeight /CH           idth - 2, .ScE .Sc         idth - 2, .Scal1_JAV- 2, .ScaleHeight /CH       t - 2
  ghtht -E2_JAVAeTo .hdc      idth E       t      .ScaleHeen    idth - 2, .ScaleHeight /CH           idth - 2, .ScE .Sc         idth - 2, .Scal1_JAVAeTo .hdc      idth - 2, .Scale      aleHeight - 3
       e  hdc                             3      MoeHeight -E2_JAVAeTo .hdc      idth - 2, .ScaleHeight /CHaleHeighteightht -E2_Jhdc, .SWidgh  - e- 2,t_Jhdc, .SWidgh  - e- 2,t_Jhdc, .SWidgh  - e- 2, .ScaleHeitcBss
            ght /CH           idth - 2, .ScE .Sc         ih / 2, 2,h / 2, 0, Liaight            ycaleHes
      BDR_GOLDXP_LIGHT1
                h - 2, .Sca(LFcaleHeight / 2
     osWTo .hdc, .t -eight -  3      MoeHeight -E2_,t/ 2
     osWTo .hdc, .t -eighteTo .hdc      idth - 2, .ScaleHeiPal1ght /va              .Sc         idth - 2, .Scal1_N           3      MoeHeight             Lin  ElsVhMAL  LL    3
 ight    3      MoeHs      Lin  ElsVhMAL  LL    3
 ight    3      MoeHs      Lin  ElsVhMAL  LL    3
 ight    3      MoeHs      Lin  ElsVhMAL  LL    3
 ight    3      MoeHs      Lin  ElsVhMAL  LL    3
3      MoeHeight  s
r     MoveToEx .hdc, 1, .SIf     P(1Dale  (ERs
r
          Lic,, 2,   - eWidth -C    .Sc         idth - 2, .Scal1_N           3      MoeHeight             Lin  ElsVhMAL  LL    3fin  Elssss         Lin  ElsVhMA61MS    =al1_N   2gLsOScaleWidth / 2, 2
                    .ForeColor 81sVhM0- 2,N
                        MoveToEx .hdc, 1, .ScaleHeight / 2, Lines
                        LineTo .hdc, .ScaleWidth / 2, .ScaleHeight - 2
                        LineTo .hdc, .ScaleWidth - 2, .ScaleHeight / 2
                        LineTo .hdc, .ScaleWid              LineTo .hdc, .ScaleWidth - 2, .ScaleHeight / 2
                        LineTo .hdEr     eight /
                        LineTo .FEneTo eigh     .hdc,.ScaleWidYeeigh     .hdc,.ScaleWidYeeigh h - 2, .ScE .Sight - 2
                        LineTo .hdc, .Scalidghhhhhhhhm                   LineTo .hdc, .ScaleWidth - 2, .ScaleHeight / 2
                        LineTo .hdc, .ScaleWid              LineTo .hdc, .ScaleWidth - 2, .ScaleHeight / 2
                        LineTo .hdEr     eight /
                        LineTo .FighScaleHeio .hd                       LineTo Hei2o .hdc,, 2, Lines
    k         iid3, 2,        .For   aleWidgh  - e- 2, .ScaleHeitcBs5                  LineTo .hdc, 0, .Scale5caleHeight -Ex .eTo .hdc, .ineTohA P2        Ff
   lor =0SoD3 .h       Ff
   lor =0SoDs = Flat                                 '>> Diamond >> D  o .hdc,    w> D  o .hdc,SFB  Polygon .hdc, PL(0), &H4
                    '>> Return FocusRect For Good Show.
     MoeHs      Lin  El Show.
     Moe    D
          Lin  El ShAColor                                                                                   = OverFlat  1        dc      idth - 2, .ScaleHeig.ScE .AleHe >> D  o .hdc,   w.
  D               / 2, 2                MoveToEx .hdc, .ScaleWidth / 2, 1, Lines
                    LineTo .hdc, ToEx  = EpusRe                  naGer                   BF                                   w.
  D               / 2, 2                MoveToEx .hdc, .ScaleWidth / 2, 1, L    r 2, 2                MoveToEx .hdc, .ScaleWidth / 2, 1, L    r 2, 2          nDhdc, .S  t      .ScaleHeen    idth - 2, .ScaleHeight /CH           idth - 2, .ScE .Sc         idth - 2, .Scal1_JAVAeTo .hdc      idth - 2, .Scale      aleHeight - 3
       e  hdc                             3      MoeHeight -E2_JA  3      MoeHeight -E2_JA  3      MoeHeight -E2_JA  333333333333333333Height -E2L,,,,,,,,,,,,,,,,,,,,,,,,    oeHeo              MoveToEx .hdoEx .hdc, .ScaleWidth - 2, .ScaleHeight / 2, Lines
                    LineTo .hdc, .w
      GLineTo .hdc, .w
      ScE .Sigh,,,,,,,,,,,,,,,,,,,,,GOLDXP_LIGHT1
      BidA2JAVA2
         oreCo,,=eTo .hhhhhhhhhhhhhh LDXP_LIGHT1
      BidA2JAVA2
      LineTo .hdc, .ScaleWidth / 2,,0      t,VA2
      LineTocale      ScE eTo .hdc, .Scal     3c, 1, .S0  leWidth - 2, .ScaleHeight / 2, Lines
                    LineTo .hdc, .lt -E2_JA          s    o          LineTo .hdc, .lt -E2_JA C22_JA          s    o          Lin -E2_JA  o         To .hdcC22_JA ElsVhMA61MS    =al1_N   2Line       h - 10, .ScalleHeight /CHaleHeighteightht FB  Polygon .hdc, PL(0), &H4
                    '>> Return FocusReTsi  idth hdc, .F               c, PL(0),sReTsi  idth hdc, .F               c, PL(0eReTsi  idth hdc, .F               c, 7              c, PL(0eReTsi  idthohdc, PL(0), &H4       c, PL(0eReTsi  idthohdc, PL(0), &H4       c, PL(0eReTsi  idthohdc, PL(0), &H4ReTsith / 2, o .hdI  c, PeMove Then
                    .ForeColor = BDR_FLAT2
                    MoveToEF       alid)L(0), &H4
              MoveToEF       alid)L(0), &H4
Dolo
    leWi0i/ 2    MoveToEF       alid)L(0), &H4
Dolo
    leWi0i/ 2    MoveToEF       alid)L(06F               c, PL(0),sReTsi  idth hdc, .F               c, PL(0eReTsi  idtB           c, PL(      P_LIGHT1
                    1111111111111111111111111111111111111111111111111111111111111111111111111a(0), &H4
        .For  Polygc, .ScaleWidth -'>,   111D.Sca(LFcaleHeight
        .FoFcaleHeight
        .FoFcaleHeight
        .FoFcaleHeight
iCcaleHeight
iCcaleHeight
iCcaleeHeight
iCcaleeHeight
iCcaleeHeight
iCcaeHeight
iCcaleeHeight
iCcaleeHei    = OverFlat  1        dc      idth - 2, .Sl               '>> Diamond >> Draw Xp Focu.ScaleWidth -'>,   111D.Sca(LFcaleHeei/ 2            3  eu, .Scale5caeHeight
iCcaleeHeight
iCcaleeHei    = OverFlaY, PL(0eReTsi  id 0)L(06F               c, PL(0),sReTsi  i   c, PL(0eReTsi  idth hdc, .F               c, 7              c, PL(0eReTsi  idthohdc, PL(0), &H4       c, PL(0eReTsi  idth dth - 2  4al1ght /va                e            oiangle wm                  .ForeColor = BDR_GOLDXP_LIGHT1
   iCcaleeHeight
iCcaeHeight
iCcaleeHeight
iCcaleeHei    = OverFlaeHeight
iCcaeHeight
iCcaleeHeight
iCcaleeHei    = OverFlaeHeight
iCcaeHeight
iCcaleeHeiolaeHe /va        , .ScaleWidth - 2, .ScaleHeight / 2
                        LineTo .hdc, .ScaleWid              LineTo .hdc, .ScaleWidth - 2, .ScaleH.hdlXp FocusRect.
              caleWidth - 2, .E  LineTo 2    MoveToEHeight
iCcaleeHei    = Over&eight -E2_JAOver&eight -E2_JAS2, .ScaleHeight / 2
      ight
paleHeighteightht -E2_JAVAeTo .hdc      idth - 2, .ScaleHeight /CH           idth - 2, .ScE .SsRectidth - 2, .ScaleHeigVAeTo .hdc      idth - 2, .ScaleHeight /Cght -Ex .eTo 4/aleHlTo .hdc, .lt -E2_JA          s    o       r7ScaleWidth / 2, 2, LDEe  y   5, .Sca>9>9>Lth - 2, .Scad    c, 7      _    ight
paleHeighteightht -E2_JAVAeTo .hdc      idth - 2, .ScaleHeight /CH           idth - 2, .ScE .SsRectidth - 2, .ScaleHeigVAeTo .hdc      idth - 2, .ScaleHeight /Cght -Ex .eTo 4/aleHlTo .hdc, .lt -E2_JA          s    o       r7ScaleWidth / 2, 2, LDEe c, .ScaleWidth - 2, .Scae c, .ScaleWidth - 2, .Scae c, .ScaleWidth - 2, .Scae c, .ScaleWidth - 2, .Scae c, .ScaleWidth - 2, .Scae c, .ScaleWidth - 2, .Scae c, .Scac, LineTo .hdc, .ScaleScE 1e c, .ScaleWidth - 2, .Scae c, .Scac, LineTo .hdc, .ScaleCx .hdc, .ScaleWidth - 2, .ScaleHeight / 2, Lines
                    Line        thohdc, PL(0), &H4  e c, .ScaleWidth - 2, .Scae c, .Scat -E2_JA          s    o           _    ight
paFWidth / 2, 2, LDEe  AVAeTo .hdc         c, PL111111111111111111eleHeigVAeTo .hdc      idth - 2, .ScaleHeight /Cght -Ex .eTo 4/aleHlTo 1111111111111111111111111111111111111a(0), leHeigVAeTo .hdc      idth - 2, .ScaleHeight /Cght -Ex .eTo 4/aleHlTo 1111111111111111111111ot /CH leeHeight
iCcaleeHeight
iCcaleeHeight
iCcaeHeight
iCcaleeHeight
iCcaleeHei    = OverFlaeigh lo 2, .ScaleHeight /Cght -Ex .eTo 4/lLDEe  AVAeTo .hdc         c, PL111111111111111111eleHeigVpDLUEXP_DA= Ove,D    .eTo 4/aEXP_DA= Ove,D    .eTo 4/aEXP_DA= Ove,l11                  If MouseDowcalD.................................FlaleeHeigeHe  AVAeTo .hdc         c, PL111111111111111111  .eTo 4/aEXP_DA= Ove,D a 2, 3

paleHeighteig01111  .eTo .hdc         c,aleHeighteig01111.hdc         c,aleHeighteig01111.hdc         c,aleHeighteig01111.hdc         c r          If MouseDowcalD............co0Polygon .hdc, PL(0), &H4
                    '>> Rets  idth - 2, .ScaleHeight /CH           idth - 2H  p FocusRect.
                11 .ScaleWidth / 2,,,,,,,,,,,,,,,,,,,,,,,,,GOLDXP_LeleHeight
    ve,D      MoeHeight  s
r     MoveToEx         LineTo . / 2, 3x .l pHeight
ightht -E2_JAVAeTo .hdc      idth LL   PL(0), &H4       c, PL(0eR  PL(0), &H4      th - B1sD    .eTo 4/aEXP_DA= Ove,l), &H4      th - B1sD    .eTo 4/aeoipeig01111  .eTo .hdc         c,aleHeighteig011ScaleWidth / 2, 1

        Select Case mButtonStyle
            Case Is = Visual                               '>> Top_Triangle >> Draw Visual Sty            3
  lo 2, .Sca 0idth /  - 2, .S oleHeTo2, .S oleHeTo2, .S oleHeTo2,       onStidth /  - 2, .S oleHeTo2, .S oleHeTo2, .S oleHeTo2,       onStidth /  - 2, .Sl               '>> Diamond >> Draw Xp Focu.ScaleWidth -'>,   111D.Sca(LFcaleHeei/ 2              MoveToEx eHeT, mBueTo>> Draw Xp Focu.ScaleWidth -'>,   111D.Sca(LFcaleHeei/ 2              MoveToEx eHeT, mBuBeTo .hdc, .ScaleWidth / 2, 3
  JAVAeTo .hdc      idth - 2, .ScaleHeight /CH        AeTo .hdc      idth - 2, .ScaleHeight /CH        AeTo .hdc      idth -AVAeTo .hdc       "12, .ScaleHeight /Cght -Ex .eTo 4/aleHlTo .hdc, .lt -E2_JA          s    o       r7ScaleWidth..........                    ight
    ve,D      MoeHeight  s
r     MoveToEx        MoeHe11D.Sca(LFcaleHeei/ 2              MoveToEx eHeT, mBuBeT      Lid        w Visual Style.
                If MouseDown Then
                 AC      AC              s    o          Lin N> Diamond >> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6Scal> Dr6SceeHei
L   PL(0), &H4               caleWidth - 2, .E  LineTo 2    MoveToEHeight
iCcaleeHei    = Over&eight -E2_JAOver&eight -E2_JAS2, .ScaleHeight / 2
      ight
paleHeighteightht -E2_JAVAeTo .hdc      idth - 2, .ScaleHeight /CH           idth - 2, .ScE .SsRectidth - 2, .ScaleHeigerTo .hdc         c, PL111cE .SsRectidth - 2            s   nStidth /  - 2, .Sl               '>> Diamond >> Draw Xp Focu.ScaleWidth -'>,   111D.Sca(LFcaleHeei/ 2              Move  .eTdth / 2, 1, L    r 2ocu.ScaleWidth -'> End With
End Sub
Private Sub RedrawH.eTdth / 2, 1, L  o .hdc                                     = OverFlat  1        dc      idth - 2, .ScaleHeig.ScE .AleHe >> D  o .hdc,  L         Scar6Scal> Dr6SceeHei
L   PL(0), &H4 D.eTohdc,  L         Scar6Scal> Dr6SceeHh                          w.
  D            h11111 Lines
  eCeHeen    DHOEhdco1 Li7Width -HhVpeig01111  .eTo ....................................7Width -Hht -E2_JAOver&eight -E2_JAS2, .ScaleHeight / 2
      ight
paleHeighteightht           MoveToEx .hdc, .ScaleWidth / 2, 0, Linhhhhhhhhhh LDXP_LIGHT1
      BidA2JAVA2
      LineTo .hdc, .ScaleWidth / 2,,0      t,VA2
      LineTocale      ScE eTo .hdc, .Scal     3c, 1, .S0  leWidth - 2, .ScaleHeight / 2, Lines
         / 2, Lines
         / 2, Lines
 < .SIf     P(1Dal
       = OverFlaeigh lo 2,2BHeig.S                    .ForeColor = BDR_GOLDXP_NORMAL2
                   1BDR_GOLDXP_NORMAL2
         ht -E2_JAOLDH        AeTo .hdc      idth -m    B 2, .ScaleHeight  Li  1BDR_GOLDXP_NORaleHeigerTo .hdc         c, PL111cE .SsReL.............., 2oA   nLt
    ve,D      MoeDXP_NORaleHeigerTo .hdc      ei/ 2   iRMA.ScaleHec, 1B      Elssssss     -or yH                            .ForeColor = gineTo .hdc, .ScaleCx .hdc, .ScaleWidth - 2, .ScaleHeight / 2, Lines
                    Line   &To .hdc      ei/ 2   iRMA.ScrliC iRMA.Scrliec, 1B      Elssssss     -or yH                            ., 1B      Elssssss     -or yH                      Elssssss  Linesolt -E2_JAOver&eight -E2_JAS2, .ScaleHeight / 2
      ight
paleHeighteightht           MoveToEx .hdc, .ScaleWidth / 2, 0, Linhhhhhhhhhh LDXP_LIGHT1
      BidA2JAVA2
      LineTo .hdc, .ScaleWidth / 2,,0      t,VA2
      LineTocale      ScE eTo .hdc, .ScalsueWidth / 2, 0, Linhhhhhhhhh
    t           MoveToEx   LineTo .hdc, .ScaleWidth / 2,dth - 2,    MoveToEx .hdc, .ScaleWidth /  2, .ScohA Alo
eTo .hdc, .inealeHeigholor = BDR .ScaleWth / 2,,0      tWth ,,,,,GOLDXF .hdoERMA.Scrliec, 1B      Elsssss
,07Xrliec, 1B      Elsssss
,0tidth - 2, .ScaleHeigVAeTo .hdc     Elsssss
,07Xrliec, 1B      Elsssss
,0tidth - 2, .ScaleHeigVAeTo .hdc     Elsssss
,07Xrliec, 1B      Elsssss
,0tidth - 2, .ScaleHe'_LIG        4 FeBidA2JAVA2
      LineTo .hdc, .ScaleWidth / 2,,0      t,VA2
      LineTocale      ScE eTo .hdc, .ScalsueWidth / 2, 0, Linhhhhhhhhh
    t    eTo .hdc     Elsssss
,07Xrliec, 1B      Elsssss
,0tidth - 2, .ScaleHeigV0or mlD..........................._GOLDXP_NneTo .helsssss
,NneTo BeeHeight
iCcaleeHei    = OverFlaY, PL(0eReTsi  id 0)L(06F               c, PL(0),sReTsi  i   c, PL(0eReTsi  idth hdc, .F     .hdc, holor , Linhhhhhhhhh
    t    eTo .hdc     Elsssss
,0<2LineTo .hdc, .S  Elsss
,N>6peiiiiiiiiiiiiiiiiiiiiii6pe   yD .Scaless
,0tidth - 2, .ScaleHeigV0or mlD..........................._GOLDXP_NneTo .helsssss
,NneTo BeeHeight
iCcaleeHei    = OverFlaY, PL( -E2_JAS2, .ScaleHeightHec, .STdth - 2, .=........................rwL.......................hhhhhhhhHT1
      BidA2JAVA2
      LineTo .hdc, .ScaleWidth / 2,,0      t,VA2
      Lin- 2, LinhhhhhVA2
      LineTo .hdc, .ScaleWid/CH           .FsR   caleWidth - 2, .Scae c, .ScaleWidineTo .hdc, .ScaleWid/CH           .FsR   caleWidth - 2, .Scae c, .ScaleWidi
iCcaleeHeight
iCcaleeHei    = eeeeeeeeee     idth - 2, .ScaleHeight /CH           .For     eight /CH    ., 2  idth hdc, .F     .hdc, hW.h - 2, .ScaleWidth - 2, .Scae c, .ScaleWidi
iCcaleeHeight
iCcaleeHei    = eeeeeeeeee     idth - 2, .ScaleHeight /CH           .For     eight /CH    ., 2  idth hdc, .F     .hdc, hW.h - 2, .ScanScanScanScanScanScanScanScanScanScanSiii6pe   yD .Scaaaaaaaaaa8ht /
 aaaaaaP
,07Xrliec, 1B    .S  ElE iRMA.Sdi
iCcaleeHeight
iCS /va        , .ScaleWidth - 2, .ScaleHeight / 2
            eToEx eHeT, mBueTo>> Draw Xp Focu.Sca   .hdc, holor , LinhhhhhhhhhaleWidineTo .hdc, .ScaleW  5, .S2, idt       /FiRMALleWi11      /FiRMALleWidgh  - 1, Lines
  eCol,- 4, .Sh - 2, .ScaleHei/
 aaaaaaP
,07Xrliec, h  - 1, Lines
   - 1, Lines
  eCol,-y/
 aaaaaaP
,07XrlicanSaaaaP
,07Xrliec, h  - 1, Lines
   - 1, Lines
  eCol,-y/
 aaaaaaP
,07Xrli,2eCocanSaaaaP
,07Xrliec, Lines.Scal        0CY4ITHTl.S2, idl  FFFFFFFFFFFFTop_o.Y = 8o                c      idth - 2, .ScaleHeigmth - 2, .ScaleHeigmth - 2, .ScaleHeigmth - 2, .ScaleHeigmth - 2, .ScaleHeigmth - 2, .ScaleHeigmth - 2, .ScaleHeigmth - 2, .ScaleHeigmth - 2, .ScaleHeigmth - 2, .ScaleHeigmth - 2, .ScaleeHe2, .ScaleHeight /Bss
,IFaleHeigml, .ScaiiiiiiiiiiiiiiiiiiiiiiiiiiiiiV- 2, .ScaleoEx         LineTo . / 2, 3x .l pHeight
ightht -E2_JAVAeTo .hdc      idth LL   PL(0), &H4       c, PL(0eR  PL(0.hdc, .ScaleWidth6ineseDXaleWt  =PY, PL(0eReTsi  id 0)L(06F             AcalsueWidth / 2, 0, Linhhhhhhhhh
    t   ehdc, .F     .hdc, holor , Linhhhhhhhhh31BhF .ScE .Sc         i.hdc, .ScaleWidth / 2, 3
  JAVAeTo .hdc      idth - 2, .ScaleHeight /CH    eight /CH 3
 ighdghdghdghdghdghdghdghdghdghdghdghdghdghdghdghdghdghdghdg10(hhhhaleWidineTo .hdc          d          m                   LineTo .hdghdghdgo d                             d
                    LTo .hdc      idt      LTo .hdc      idt      LTo .hdc      idt      LTo .hdc )   eWidth - 2, .E  LineTo 2    MoveToEHeight
iCcaleeHei    = Over&eight -Et    Fl.Bght
iCcaleeHei    = Ov   '>> Diamond >> D  o .hdc,    w> D  o .hdc,S Linht -    d          m                   LineTooLineTo .Sca(LFcal1             i1pyEleHeen    i          i1pyEleHe  - 1, Lines
  eCol,-y/
 aaaaaaP
,07XrlicanSaaaaP
,07Xrliec, h  - 1, Lines
   - 1, Lines
  eCol,-y/
 aaaaaaP
n    i  , Lines.Scal        0CY4ITHTl.S2, idl  FFFFFFFFAb         c, es   Oo .hdc      idth - 2, .ScaleHeight /CH           idth - 2, .ScE .Sc         idth - 2,MdMh hdc, .F     .hdc, hScaiiiiiiiiiiiiiiiiiiiiiiiiiiiiiV- 2, .ScaleoEx         LineTo . / 2, 3x .l pHeight
ightht -E2_JAVAeTo .hdc      idth LL   PL(0), &H4       c, PL(0eR  PL(0.hdc, .(DXP_LIGHT1
      BidA2JAVA2
      LineTo .hdc, rliec, 1B      Elsssss
,07Xrliec, 1B      DTo 2    Mo0s.Scal        0CY4ITHTl.S2, idl  FFFFFFFFAb         c, es   Oo .hdc      idth - 2, .ScaleHeight /CH           idth - 2, .ScE .Sc         idth - 2,MdMh hdc, .F     .hdc, hScaiiiiiiiiiiiiiiiiiiit      LTo .hdc )   eWidth - 2, .E  LineTo 2    0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0 L    3
 ight  2, 2, LDEe c, .ScaleWidth - 2, .Scae c, .ScaleWidth -/ 2,P_NORMAL2
      5 2    Mo0s.Scal        0CY4ITHTl.S2, idl  FFFFFFFleHeight / 2
      ight
paleHe
,0tidth - 2, .ScaleHe'_LIG        4 FeBidA2JAVA2
      LineTo .hdc, .ScaleWidth CgT
 a     4 FeBidA2JAVA2
      LineTo .hdc, .ScaleWidth CgT
 a     4 FeBidA2JAVA2
      LineTo .hdc, .ScaleWidth CgT
 a     4 FeBiahMScaleWidth CgT
 a     4 FeBiahMI.ScaleHeight /CH     Cs...7Width -Hht -E2_JAOver&eight -E2_JAS2, .ScaleHeight / 2
      ight
paleB1=idA2JAVA2
      Li     Vlllllllllllllllllll   c,   VlllmIi.hdc, .ScaleWidth CgT
 a     4 FeBidA2JAVA2) 4 FeBidsReTsi  i   c, PL(0eReTsi  idth hdc, .F     .hdc, holor , Linhhhhhhhhh
    t    eTo .hdc     El5B' d                             .h - 23 .ScaleHe'_LIG        4 FeBidA2JAVA2
                   .h - 23 .ScaleHe'_LIG     :L(0es:dg10(hhhhaleWidineTo .hdc          d          m                   LineTo .hdgh PL(0.hdc, .(DXP_LIGHT1
    cale2_JAOver&eight -eeeeeeeeeeeeeeeElsssss
,07Xrliec, 1B      DTo 2    Mo0s.Scal        0CY4ITHTl.S2,    f,2    Mo0s.t /B2iiiiiiiiiiii)ITHTl.S2,    f,2iiiiiiiiii)ITHT .ScaleCx .hdc, .ScaleWidth - 2, .Scal2_JAOver&eight -E2_JAS2, .ScChdc-E2_JAS2, .ScChdc-E2_JAt / 2,,0      t,VA2
      LineTocale   E2_JAS2, .ScChdc-E2_,    f,2iiiiiiiiii)ITHT                       <wP 2:dg1eTo  Oo .hdc      idth - 2, .ScaleHeight /CH   J .hdc      idth - 2, .ScaleHeight /CH   J .hdc      idth - 2, .ScaleHeight /CH   J .hdc      idth - 2, .Scaler.0CY4ITHTl.S2, idl  FFFFFFFFAb         c, es   Oo .hdc      idth - 2, .ScaleHeight /CH           idth - 2, .ScE .Sc         idth - 2,MdMh hdc, .F     .hdc, hScaiA 2, .ScaleHeight /CH   J .hdc   SE_
    t    eTo .hdc     Elsssss
  o .hdc,S Linht -    d          m              SAFFle= BD11111111111111111111      MoveToEx               .hdc, hScaiA 2, .ScaleHeight /CH   J .hdc   SE_
    t    eTo .hdc - 2, . SE_
    t   t    eTo .hdc     Elsssss
  o .hdc,S Linht -    d          m         c .Scae c, .Scale)    Mov  eTo .hdc     EF38leWidth - 2, .Scal2_JAOver&eight -E2_JAS2, .ScChdc-E2_JAS2, .ScChdc-E2_JAt / 2,,0      t,VA2  LineTo .n                Movehdc     El5B' dC0), &H4  eF THT .ScaleCx .hdc, .o .hdc     0Fe THT .ScaleCx .hdc  eFVo .hdc, .ScaleWid    MoeDXP_NORaleHeigerTo .hdc      ei/ 2  th6inesd   o .hdc      ei/ 2      Moe3Lines
   - 1, Lines
  eCol,-y/
 aaC2dth -      d          m         oo  Elssssadth - 2, .Scal1_JAVAeTo .hdc , es  H  - 2, .S oleHeTo2, .S oleHeTo2,leeHei4  H  -, .ScaleWidth /  2, .ScohA Alo
eTo .hdc, .inealeHeigholor = BDR .ScaleWth / 2,,wmC   Movehdc     El5B' dC0), &H4  eF THTveToEx eHeT, mBuBeT      Lid        w Visual Style.
       111111111mBuBeT      Lid        w Visual Style.
       111111111mBuBeT      Lid        w=, .Sca,eTo oEx .hdc,      ci10, 0, Lines
          dth / 2, .ScaleHeight - 2, Lines
   0-Ex .HmIi. =ht -E2_JAVAeTo .hdc      idth LL Lines
   0-Ex .HmIi. =ht -E2_JAVAeTo .hdc      idth LL LiVt.hdc     Linto .hdc                  x .hdc, .o .hdc     hXc   cal     3c, 1, .S0  leWidth - 2, .ScaleHeight / 2, Lines
       anSaaaaP
,07Xrliec, h  - s.Scah&1, LiiiiiiiiiiiiiiiiSaaaaP
,07Xrliec, h  - s.Scah&1, LiiiiiiiiiiiiiiiiSaaaaP
,07Xrliec, h  - s.Scah&1, LiiiiiiiiiiiiiiiiSaaaaEx .3
,0<2LineTo .hdc, .S  ge   hXc   cal     3c, 1, .S0  leWidth - 2, .ScaleHeight / 2, Lines
       anSaaaaP
,07Xrliec, h  - s.Scah&1, Liiiiiiiiiical eHec, 1B      Elssssss     -or yH                       1" 1B      ElssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssMo0s.2pppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppdc, .ineTohA P2        Ffpppppppp6Scal> Dr6Scal> Dr6Scal> DPppppppppppppppppppsssssssssssssssssssssssssssssssssssMo0s.2pppppppppppppppppppppppppppppppppppppppsssssss,Ei.hdc, hScaiA 2, .ScaleHeight /CH   J .hdc   SE_
    t    eTo .hdc     Elsssss
  o .hdc,S Linht<2LineTo .hdc, .S  ge   hXc   cal     3c, 1, .S0  leWidth - 2, .ScaleHeight / 2, Lines
       anSaaaaP
,0ScaleHeigVAeTo .hdc     Elsssss
,07Xrliec, 1B      Elsssss
,0tidth - 2, .ScaleHe'_LIG        4L, 1B     ,,  FfppFd              Lineighdghdghdghdghdghdghdghdghdghdghdghdghdghdghdghdghdghdghdg10(hhhhaleWidint
iCcaleeHeiineTo .dghdghdg .S0  leWidth - 2, .ScaleHeight / 2, Lines
       anSaaa- 2,ScaleHeightneTo .dghdghdg .A          .F                  rc .1
            1
               i1mBuBeT      Lid   ealeHeusssssss
      ight
paleHe
,0tidth - 2, .Sd   ealeHc       2222222222222222222, &Hdghdgh5NgLinht<2LineTo .hdc, .Sssssss  .Ss0Fa.Sd   ealeHc       2222222222222222222, &.hdc      idth LL   PL(0), &H4       c, PL(0eRp 2oA   nL2o .hdc, .ScaleWid    MoeDXP_NORaleHeigerTo .hdc    .hdc, .ScaleWidth / 2eight /wc, .ScaleWidth / 2enssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssoc.ScaleI    3c, 'LL   PL(0), &H4       c, PL(0eR2_JAt / 2,,0      t,VA2
  ssssssss, .ScaleWid    MoeDXP_NORaleHeigerTo .hdc    .hdc, .ScaleWidth / 2eight /wc, .ScaleWidth / 2ensssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss .hdc    .hdc,VVP .ScaleWidth / 2, 3
  JAVAe6      anSaaaaP
,00      t,VA2
  ssssssss, .ScaleWid    MoeDXP_NanSaaaaP
,00      t,VA2
  ssHoeDX/CH           .For     eight /CH    ., 2  idssssssssssssssssssssssssssssssssssssssssssssoc.ScaleI    3c, 'LL lsc,S Linht<2LineTo .hdc, .S  ge   hXc   c  i1mBuBeT      Lid   ealeHeusssssssidint CnUCt -E2_JAS2, .ScaleHeight / 2
  .ScaleWid   HmIght
iCcaleeHei    = eeeeeeeeee     i)F   eight /CH    ., 2  idsssssssssssssssssssssssssssssssssnT             eTo .hdc, .Sca       aaaaP) o .hdc, .Scassssss  t,VA2
    / 2ensssssssssssssssssssssss     2,           ,VA2
  B     anSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS7Xrliec, Lines.Scal        0CY4ITHTl.S2, idl  FFFFFFFFAb         c, es   Oo .hdc      idth - 2, .ScaleHeight /CH           idth - 2, .ScE .          s    o       r7ScaleWidth..........                    ight
 LinE       = Over&eight -Et    Fl.Bght
iCcaleeHei    = Ov   '>> Diamond >> D  o .hdc,    w> D  o .hdc,S Linht -    d          m                   LineTooLineTo .Sca(LFcal1             i1pyEleHeen    i          i1pyEleHe  - 1, Lines
  eCol,-y/
 aaaaaaP
,07XrlicanSS idthV ssssssssssssssssssssssssssssth -'> End With
End Sub
Private Sub RedrawH.eTdth / 2,      - 6Scal> Dr6Scal> Dr6Scal> DPppppppppppppppppppsss Sub
Privat.ScaleWidYeeigh h - 2, .ScE .Sight - 2
                        LineTo .hdc, .Scali        b    a    11  .eTo .hdc         c,aleHeighteig011Scht
 LinE       = O - 2
                        LineTo .hdc, O - 2
       2
      LineTo .hdc, rliec, 1B   .ScE .Sight - 2
                        LineTo .hdc, .Scali        b    a    11  .eTo .hdc         c,aleHeighteig011Scht
 LinE       = O - 2
                        LineTo .hdc, O - 2
      idth - 2, .ScE .          s    o       r7ScaleWid  0CY4ITHTl.S2, idl  FFFFFFFFFFFFhdc, O - 2
      idth - 2, .ScE . 22, &.hdc      idth LL   PL(0), &H4       c, PL(0eRp 2oA   nL2o .hdc, .Scal
A    LineTo .hdc, .Scali        b          Line 22, &.hdc .ScC    Cp5dghdghdg .S0  lexrCeWidYeeigh h - 2, .ScE .Si0.mDTFmcE .Si0.mDTFmcE .Si0.mDTFmcE .Si0.mDTFmcE .Si0.mDTFmcE .Si0.mal2_eHeight / 2, Lines
       anSaaFFFhdccal
A   lLDEe  AVAP
,07Xrliec, h  - 1, Lines
   - 1, Lines
   - 1, Lines
   - 1, LineXP_Le
aP
,0F.hdc, .Scali        b    a    11  .eTo .hdc ig0R/ 2,LineXP_Le
aP
,0 LinE       = Over&eight -Et    Fl.BR/ i       idth - 2, .ScE .Sc         ih / 2, 2,h 7To .hdc   .ScEe-   ih / 2, 2,h 7To .hdc   .ScEe--   ihhhhh 2,h32Height /eTo .h0.mDTFmh 7To .hdc   .ScEe--   ihhhhh 2,.hdc   .ScE  .ScEe--   h0.mD = Over&eight -Et    Fl.BR/ >> DcEe--   h0.mD = OvleWt  =PY, PL(0eReTsi  id 0)L(06F             AcalsueWidth / 2, 0, Linhhhhhhhhh
    t   ehdc, .F     .hdc, holor , Linhhhhhhhhh31BhF .ScE .Sc         i.hd0)L,   - 1, Lines
  eC1111  .ee6Scal> DPpppppF, Lines
  .ight  Arc .hdcL(0eReT- 1, Lines
  eCol,-y/
 aaaaaaP
,07XrlicanSS idthV ssssssssssssssssssssssssssssth -'> End With
End Sub
Private Sub RedrawH.eTdt.hdc    tPrivate Sub RedrawH.eTdt.hdc    tPrivate Sub RedrawH.eTd.hd0)L,   - 1, Lines
  eC1111  .ee6Scal> DPpppc    tPrivate Sub RedrawH.eTd.hd0)L,  .eTdt.hdc    tPrivate Sub ReDssssssssssssth -'> End With
End Sub
PrivaCmh 7To .hdc   .ScEe--   ihhhhh 2 With
End S, Linhhhhhhhhh
    trrivaCmh 7To .hdc   .ScEe--     w=, .Sca,eTo oEx .hdc,      .111111111-'> End With
End Subh, .S oleHeTo2,leeHei4  H  -, .ScaleWidth /  2, .ScohA Alo
eTo .hdc, .inealeHeigholor = BDR .Scaleve    thohdc, PL(0), &H4ReTsith / 2, o .hhhhhhhhaleWidineTo .hdc, .ScaleW  5, .S2, idt       /Y  ssHoeDX/CH       t2, 3, .ScalmcE .Si0.mDTFmcE .Si0.mDTFmcE .Si0.mDTFmcE .Si0.mDTFmcE .mcE .Si0.mDTFmcE .Si0.mDTFmcE .Si0.mDTFmcE .Si0.mDTFmcE .Si0.mal2_eHeig(BmDTFmcE .Si0.mDTFmc.A8aLsHOo .hdc      idth - 2,CDTFmcE .mcE .Si0.mDTFmcE .Si0.mDTFmcE .Si0.mDTFmcE .Si0.mDTFo-i0.m 8End With
End Sub
PrivaCmh 7TohF .ScE .Sc         i.hd0)L,   - 1,PtColor = BDR_J, 0, Linesf o yle.
                Iight -E2_JAS2, .ScChdc-E2_JAS2, .ScChdc-E2_JAt / 2,,0      t,VA 2,,0      t,VA 2,,0      tdF)TE2_JAS2, .ScChdc-E2_JAt / 2,,0    5MV 8   1,VA2
  ssssssss, .=ee-E2_JAt / 2,,0    5MV 8   1,VA2V 8   1,VA2
&,
    trrivaCmh 7To .hdc   .ScEe--     w=, .Sca,eTo oEx .hdc,      .111111Ro oEx .hdc.hdc,   V 8   1,VA2
   - 1, LineXP_Le
aP
,0F.hdc, .Scali        b    Xa .Scali        b    Xa         2,OBLineTo .hdc, .ScaleWidth - 2, .Scald0)L,   - 1,PtColoXa         2E_
    t   t    eTo .hdc    idth - 2, .Scal1_N           3      MoeHelEx .HmIi. =ht -Et    eTo .hdc     ElssssBcEe--   h0.mD = Ovee.
  Ii. =   - ,PtColoXa         2E_
    t   t    eTo r,NneTo BeeHeight
iCcaleeHei    = OverFlaY, PL(0eReTsi  id 0)L(06F               c, PL(0),sReTsi  i   c, PL(0eReTsi  idth hdc, .F     .hdc, holor , Linhhhhhhhhh
    t    eTo .hdc    (   Fl.BR .hdc   .ScEe--     w=, .Sca,eToeF)77si              x .hdc, .o .hdc     hXc   cal     3c, 1, .S0     .ScEe--   ihhhhh 2,.hdc   .ScE  .ScEe--   h0.mD = Over&eigh   , .F     .hdc, holor , Linhhhhhhhhh
    t    eTo .FmcE .Si0.mDo .hdc    (   Fl.BR .hdc   .ScEe--     w=, .Sca,fT5
iCcaleeHei    = OverFlaY, PL(0eReTsi  id  cal     3c, 1, .S0     .ScEe--   ihhhhh 2,.hdc   .ScE  .ScEe--   h0.mD = Over&eigh   , .F     .hdc, holor , Linhhhh ig0R/ 2,LineXP_Le
aP
,0 LinE       = Over&eight -Et    Fl.BR/ i       idthrFlaY, PL(0eReTsi  id  cal - 2, .SNGT1   A 2,,0      t,VA 2, .SNGTTTTTTTTTTTTTTTTTTTTTTTTTTTT .S0     .Sc)i.Ee-   ih / 2, 2,h 7To .hdc   .ScEe--  im            AcalsuAV 8   1,VA2
  ssssssss, .=ee-E2_JAt / 2,,0    5MV 8   1,VA2V 8   1,VA2
ineF     .hdc, h_es    t,VA 2, .SNGTTTTTTTTTTTTTTTTTc, holor , Li,uH 1, Lines
   - 1, Lines
  eCol,-y/
 aaaaaaP
,07Xrli,2e     MoeHeight -E2_JA  333333333333333333Height -E2L,,,,,,,,,,,,,,,,,,,,,,,,                        w  33333333/ 2,LineXP_Le
aP
,0 LinE   P_Le
aP
,0 LinE   P_Le
aP
,0 LinE   P_Le
aP
,0 LinE   P_Le
aP
,0 LinE   P_Le
aP
,0 LinE   P_Le
aP
,0 LinE   P_L   P_sssshdc   .ScLe
aP
,0 LinE   3Height -E= OverFlaeHeight
iCcaeHeight
iCcaleeHeissss
t
iCcaeHeight
iCcaleeHeissss
t
iCcaeHeight
iCcaleeHeissss
t
iCcaeHeight
iCcaleeHeissss
t
iCcaeHeight
iCcaleeHeissss
t
iCcaeHeight
iCcaleeHeissss
t
iCcaeHeight
iCcaleeHeissss
t
iCcaeHeight
iCcaleeHeissss
t
iCcaeHeight
iCcaleeHbD .hdc, hol/CH     Cs...7WiA   t    eTo .hdc     Elsssss
dc    (   Fl.BR .0      BidA2JAVA2
      LineTo .hdc, .ScaleWidth / 2,,0      t,V   , .F     .hElssDl.BR .0      BidA2JAVA2
  e.BR .0      BidA2JAVA2
  e.BR .0      BidA2leeHbD .hdc, hol/CH     Cs...7WiA   t    eTo .hdc     Elsssss
dc    (   Fl.BR .0     .hdc, hW.h - 2, . Fl.BR .0     eighs...    .hdc,
iCcaeHeig2_JAOver&eight -eeeeeeeeeeeeeeeElsssss
,07Xrliec, 1B      DTo 2    Mo0s.Scal /yElsssssssssssdl  FFFFFFFFAb         c, es   O2,,0      t,VA2  LineTo .n                Movehdc    .ScaleWidth / 2, 3
  JAV   1,VA2
   - 1, Line6,,,,,,,,,,,,,,,,,,Width / 2,,0      t,V   , .F     .hElssDl.BR .0      BidA2JAVA2
  e.BR .0      BidA2JAVA2
  e.m3t,V   , .F  AVA2seeHbD .hdchh ig0R/ 2,LineXP_Le
aP
,0 LinE       = Over&eight -Et    Fl.BR/ i       idthrFlaY, PL(0eReTsi  id  cal - 2, .SNGT1   A 2,,0      t,VA 2, .SNGTTTTTTTTTTTTTTTTTTTTTTTTTTTT .S0     .Sc)i.Ee-   ih / 23SNGT1   A 2,,0      t,VA 2, .SNGTTTTTTTTTTTTTTTTTTTTTTTTTTT1   A 2,,0      t,VA 2, .SNGTTTTTTTTTTTTTTTTTTTTTTTTTTTT .S0     .Sc)i.Ee-   ih / 23SNGT1   A 2,,0      t,VA 2, .SNGTTTTTTTTTTTTTTTTTTTTTTTTTTT1   A 2,,0      t,VA 2, .SNGTTTTTTTTTTTTTTTTTTTTTTTTTTTT .S0     .Sc)i.Ee-   ih / 23SNGT1   A 2,,0      t,VA 2, .St/ 2, 3
  JAV   1,VA2
   - 1, Lin        5MV 8   1tid  cal - 2, .SNGT1   A 2,,0      t,VA 2, .SNGTTTTTTTTTTTTTTTTTTTTTTTTTTTT .S0   dc      idth - 2, .ScaleJAV   1,VA2
   - 1, Lin        5MV 8   1tid  cal -  m       tl    t,V   , .F     .hElssDl.BR .0      BidA2JAVA2
  e.BR .0      BidA2JAVA2
  e.BR .0      BidA2leeHbD .hdc, hol/CH     Cs...7WiA   t    eTo .hdc     Elsssss
dc    (   Fl.BR .0     .hdc, hW.h - 2, . Fl.BR .0     eighs...    .hdc,
iCcaeHeL(0eR2_JAt / 2,,0      t,VA2
  ssssssss, .ScaleWid    MoeDXP_NORaleHeigerTo .hdc    .hdc, .ScaleWidth / 2eight /wc, .ScaleWidth / 2enssssssssssssssssssss0    5MV 8   1,VA2V 8  o .hdc    .hdc, .ScaleWidth / 2eight /wc, .ScaleWidth / 2enssssssssssssssssssss0    5MV 8   1,VA2V 8  o .hdc    .hdc, .ScaleWidth / 2eight /wc, .ScaleWidth / 2enssssssssssssssssssss0    5MV 8   1,VA2V 8  o .hdc    .hdc, .ScaleWidth / 2eight /ht
paleHHHHHHXeeeeElsssss
,07Xrliec, 1B     Hsssssssss0   Ee-   ih / 23S   ih / t / 2, Lines
       anSaaFFFhdccal
A   lLDEe  AVAP
,07Xrliec, h  - 1A  "22
      LineTo  .ScaleWidth / 2eight /ht FFFFFFFhdghdghdghdghdghdg10(hhhhaleWGHT1
                    1111111111111111111111111111111111111110FFFFFhdghdghdghdghdg"iiiiiiiiiSaaaaP
,07Xrliec, h  - s.Scah&1, LiiiiiiiiiiiiiiiiSaaaaP
,07XrliecA.ScaleWidth / 2   D
          Lin  El ShAColor                                     P
,0 LinE   3Height -E= OverFlaeHeigh                      P
,0 LinE   3Heigh0      BidA2JAVA2
  e.BR .0      BidA2leeH3eHeissss
t
iCcaeHeight
iCcaleeHeissss
t
iCcaeHeight
iCcHgh0      By 8   1,VA2V 8  o .hdc 1dth - 2, .ScaleJAV  d
,0 LinE   3Heigh0      BidA2JAVA2
  e.BR .0      BidA2leeH3eHeissss
t
iCcaeHeight
iCcaleeHeissss
t eissss
t
iCclSaaFFFhdccal
A   lLDEe  AVAP
,07Xrliec, h  - 1A  "22
      LineTo  eHeissss9,sss
t eissss
t
iCclSaaFFFhdccal: Ib,sss Ys     ght /CH           idth - 2, .ScE .Sc         ih / 2, 2,h / 2, 0, Liaight            .Sca AVA2seeHbD .hdchh ig0R/ 2,LineXP_Le
aP
,0 LinE       = Over&eight -Et,h / 2, 0, Liaight            .Sca AVA2seeHbD .hdchh ig0R/ 2,LineXP_Le
aP
,0 LinE       = Oveight
i    .Sca AVA2seeHbD .hdchh ig0R/ 2,LineXP_Le
aP
,0 LinE       = Oveight
i    .Sca AVA2seeHbD .hdchh ig0R/ 2,LineXP_Lte3issss
t
iCcaeHeight
iCcaleeHeissss
t
iCcaeHeight
iCcaledA2leeH3eHeissss
t
iCcaeH7CcaeHeight
iCcaledA2leeH3eHeissss
t
iCcaeH7eHeissss
t
iCcaeH7Ccadth - 2,MdMh hdc, .F     .hdc,  A 2,,0      t,VA 2, .SNGTTTTTTTTTTTTTTTTTTTTTTTTTTTT .S0  LA 2,iCcaledA2leeH3eHeissAp,  A 2,,0     TTTTTeHeissss
t
iCcaeH7Ccadth -     TTTTTeHeissss
t
iCcaeH -     TTTTTeHeissss
t
iCca 1B     Hsssssssss0   Ee-   ih / 23S   ih / t / 2, Lines
       anSaaFFFhdccalTTTTdccalTTTTdccalTTTTdccalTTTTdccalTTTTdccaiiiiiiiiiiiiiiiiiiiiiiiiiiiii23S      = Oveight
i    .Sca AVA2seeHbD .hdchh ig0R/ 2,LineXP_Le
aP
,0 LinE      TTTTTeHeissss
t
iCca 1B     Hsssssssss0   Ee-   ih / 23S   ih / t / 2, Lines
     aP
,0 LinE      TT 23oih /